Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–25
4060 EXEC SQL WHENEVER NOT FOUND CONTINUE END-EXEC.
4080 *
4100 EXEC SQL CONTROL TABLE =DEMO01 SEQUENTIAL INSERT ON END-EXEC.
4120 EXEC SQL CONTROL TABLE =DEMO02 SEQUENTIAL INSERT ON END-EXEC.
4140 EXEC SQL CONTROL TABLE =DEMO03 SEQUENTIAL INSERT ON END-EXEC.
4160 *
4180 * COPY U-PRE-PROCESS OF USERLIB.
4180 <
4200 PERFORM PROC-DEMO01 THRU PROC-DEMO01-EXIT.
4220 PERFORM PROC-DEMO02 THRU PROC-DEMO02-EXIT.
4240 PERFORM PROC-DEMO03 THRU PROC-DEMO03-EXIT.
4260 * COPY U-POST-PROCESS OF USERLIB.
4260 <
4280 *
4300 END-JOB.
4320 PERFORM TIME-STOP THRU TIME-STOP-EXIT.
4340 STOP RUN.
4360 *
4380 PROC-DEMO01.
4400 MOVE SAVE-WK-STOR TO WK-STOR.
4420 MOVE "DEMO01" TO WK-FNAME.
4440 MOVE "=DATAIN01" TO WK-DEFINE.
4460 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
4480 IF ERR NOT = ZERO
4500 DISPLAY "RUN: FILE NOT FOUND - =DATAIN01 - Proceeding..."
4520 DISPLAY "RUN: FILE NOT FOUND - =DATAIN01 - Proceeding..." UPON LOG
4540 GO TO PROC-DEMO01-EXIT.
4560 DISPLAY "RUN:".
4580 DISPLAY "RUN:" UPON LOG.
4600 DISPLAY "RUN: Start -> DEMO01".
4620 DISPLAY "RUN: Start -> DEMO01" UPON LOG.
4640 OPEN INPUT F-IN-DEMO01.
4660 PROC-DEMO01-GO.
4680 READ F-IN-DEMO01 AT END GO TO PROC-DEMO01-END.
4700 ADD 1 TO CTR-IN.
4720 MOVE SPACES TO OUT-DEMO01.
4740 PERFORM P-IN-DEMO01 THRU P-IN-DEMO01-EXIT.
4760 GO TO PROC-DEMO01-GO.
4780 PROC-DEMO01-END.
4800 CLOSE F-IN-DEMO01.
4820 MOVE "3" TO REQ-CODE.
4840 PERFORM LOAD THRU LOAD-EXIT.
4860 DISPLAY "RUN: DEMO01: IN = " CTR-IN.
4880 DISPLAY "RUN: DEMO01: IN = " CTR-IN UPON LOG.
4900 DISPLAY "RUN: DEMO01: OUT = " CTR-OUT.
4920 DISPLAY "RUN: DEMO01: OUT = " CTR-OUT UPON LOG.
4940 IF CTR-OTHER NOT = ZERO
4960 DISPLAY "RUN: DEMO01: ??? = " CTR-OTHER
4980 DISPLAY "RUN: DEMO01: ??? = " CTR-OTHER UPON LOG.
5000 DISPLAY SB-MSGS-BUFF.
5020 DISPLAY SB-MSGS-BUFF UPON LOG.
5040 PROC-DEMO01-EXIT. EXIT.
5060 *
5080 PROC-DEMO02.
5100 MOVE SAVE-WK-STOR TO WK-STOR.
5120 MOVE "DEMO02" TO WK-FNAME.