Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–47
5120 GO TO PROC-DEMO02-EXIT.
5140 DISPLAY "RUN:".
5160 DISPLAY "RUN:" UPON LOG.
5180 DISPLAY "RUN: Start -> DEMO02".
5200 DISPLAY "RUN: Start -> DEMO02" UPON LOG.
5220 OPEN INPUT F-IN-DEMO02.
5240 OPEN OUTPUT F-SQLMSGS.
5260 ENTER TAL "COBOLFILEINFO"
5280 USING F-SQLMSGS
5300 OMITTED OMITTED SB-MSGS-FNUM.
5320 PROC-DEMO02-GO.
5340 READ F-IN-DEMO02 AT END GO TO PROC-DEMO02-END.
5360 ADD 1 TO CTR-IN.
5380 MOVE SPACES TO OUT-DEMO02.
5400 PERFORM P-IN-DEMO02 THRU P-IN-DEMO02-EXIT.
5420 GO TO PROC-DEMO02-GO.
5440 PROC-DEMO02-END.
5460 CLOSE F-IN-DEMO02.
5480 CLOSE F-SQLMSGS.
5500 DISPLAY "RUN: DEMO02: IN = " CTR-IN.
5520 DISPLAY "RUN: DEMO02: IN = " CTR-IN UPON LOG.
5540 DISPLAY "RUN: DEMO02: OUT = " CTR-OUT.
5560 DISPLAY "RUN: DEMO02: OUT = " CTR-OUT UPON LOG.
5580 IF CTR-OTHER NOT = ZERO
5600 DISPLAY "RUN: DEMO02: ??? = " CTR-OTHER
5620 DISPLAY "RUN: DEMO02: ??? = " CTR-OTHER UPON LOG.
5640 DISPLAY SB-MSGS-BUFF.
5660 DISPLAY SB-MSGS-BUFF UPON LOG.
5680 PROC-DEMO02-EXIT. EXIT.
5700 *
5720 PROC-DEMO03.
5740 MOVE SAVE-WK-STOR TO WK-STOR.
5760 MOVE "DEMO03" TO WK-FNAME.
5780 MOVE "=DATAIN03" TO WK-DEFINE.
5800 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
5820 IF ERR NOT = ZERO
5840 DISPLAY "RUN: FILE NOT FOUND - =DATAIN03 - Proceeding..."
5860 DISPLAY "RUN: FILE NOT FOUND - =DATAIN03 - Proceeding..." UPON LOG
5880 GO TO PROC-DEMO03-EXIT.
5900 DISPLAY "RUN:".
5920 DISPLAY "RUN:" UPON LOG.
5940 DISPLAY "RUN: Start -> DEMO03".
5960 DISPLAY "RUN: Start -> DEMO03" UPON LOG.
5980 OPEN INPUT F-IN-DEMO03.
6000 OPEN OUTPUT F-SQLMSGS.
6020 ENTER TAL "COBOLFILEINFO"
6040 USING F-SQLMSGS
6060 OMITTED OMITTED SB-MSGS-FNUM.
6080 PROC-DEMO03-GO.
6100 READ F-IN-DEMO03 AT END GO TO PROC-DEMO03-END.
6120 ADD 1 TO CTR-IN.
6140 MOVE SPACES TO OUT-DEMO03.
6160 PERFORM P-IN-DEMO03 THRU P-IN-DEMO03-EXIT.
6180 GO TO PROC-DEMO03-GO.
6200 PROC-DEMO03-END.
6220 CLOSE F-IN-DEMO03.