Manualshelf

Data Build Manual

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