Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–24 099331 Tandem Computers Incorporated
2960 05 W2-DATE-TIME4 PIC 99.
2980 05 W2-DATE-TIME5 PIC 99.
3000 05 W2-DATE-TIME6 PIC 99.
3020 05 W2-DATE-TIME7 PIC 99.
3040 01 W2-TIMESTAMP.
3060 05 W2-YR PIC 9(4) COMP.
3080 05 W2-MO PIC 9(4) COMP.
3100 05 W2-DA PIC 9(4) COMP.
3120 05 W2-HR PIC 9(4) COMP.
3140 05 W2-MN PIC 9(4) COMP.
3160 05 W2-SC PIC 9(4) COMP.
3180 05 W2-FRACTN1 PIC 9(4) COMP.
3200 05 W2-FRACTN2 PIC 9(4) COMP.
3220 01 W2-JUL64 PIC S9(18) COMP.
3240 01 W3-DATE PIC 9(8).
3260 01 W3-DATEX REDEFINES W3-DATE.
3280 05 W3-YR PIC 9(4).
3300 05 W3-MO PIC 99.
3320 05 W3-DA PIC 99.
3340 01 W4-DATE PIC 9(8) COMP.
3360 01 W4-DATEX REDEFINES W4-DATE PIC X(4).
3380 01 W5-WORK5.
3400 05 W5-WORK5A PIC X.
3420 05 W5-WORK5B PIC 9(5).
3440 01 W5-WORK10.
3460 05 W5-WORK10A PIC X.
3480 05 W5-WORK10B PIC 9(10).
3500 01 W5-TEXT.
3520 05 W5-TEXT1 PIC X OCCURS 12 TIMES.
3540 01 W5-NUM18.
3560 05 W5-NUM18A PIC X OCCURS 18 TIMES.
3580 01 W5-NUM18X REDEFINES W5-NUM18.
3600 05 FILLER PIC X(14).
3620 05 W5-NUM2V2 PIC 99V99.
3640 01 W5-COMP2V2X.
3660 05 W5-COMP2V2 PIC 99V99 COMP.
3680 01 W5-WORK20.
3700 05 W5-WORK20A PIC X.
3720 05 W5-WORK20B PIC X OCCURS 19 TIMES.
3740 *COPY U-WS OF USERLIB.
3740 <
3760 *
3780 EXTENDED-STORAGE SECTION.
3800 01 SQLUTIL-BUFF PIC X(32000).
3820 01 SQLREAD-BUFF PIC X(256).
3840 *
3860 PROCEDURE DIVISION.
3880 *
3900 MAIN-CTL.
3920 MOVE WK-STOR TO SAVE-WK-STOR.
3940 PERFORM PROG-BANNER.
3960 PERFORM TIME-START THRU TIME-START-EXIT.
3980 PERFORM RUN-OPTIONS THRU RUN-OPTIONS-EXIT.
4000 *
4020 EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
4040 EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC.