Data Build Manual

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