Data Build Manual

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