Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–33
6780 LOAD-INIT.
6800 IF SWT-RECV-OPEN = SPACE
6820 ENTER TAL "OPEN^RECEIVE"
6840 USING SB-RECV-FNUM
6860 GIVING ERR.
6880 IF ERR = ZERO
6900 MOVE "1" TO SWT-RECV-OPEN
6920 ELSE
6940 DISPLAY "RUN: OPEN^RECEIVE ERROR = " ERR
6960 DISPLAY "RUN: OPEN^RECEIVE ERROR = " ERR UPON LOG
6980 GO TO END-JOB.
7000 MOVE 32000 TO SB-BLOCK-LEN.
7020 DIVIDE LOAD-RECLEN INTO SB-BLOCK-LEN.
7040 MULTIPLY LOAD-RECLEN BY SB-BLOCK-LEN.
7060 MOVE ZERO TO SB-INDEX SB-BUFF-LEN SB-REPLY-CODE.
7080 PERFORM LOAD-PROCESS THRU LOAD-PROCESS-EXIT.
7100 MOVE "2" TO REQ-CODE.
7120 LOAD-INIT-EXIT. EXIT.
7140 *
7160 LOAD-PROCESS.
7180 IF SB-BUFF-LEN < SB-BLOCK-LEN
7200 ADD 1 TO SB-INDEX
7220 ADD LOAD-RECLEN TO SB-BUFF-LEN
7240 ENTER TAL "MOVE^REC^TO^BUFF"
7260 USING LOAD-REC
7280 SQLUTIL-BUFF
7300 SB-INDEX
7320 ELSE
7340 PERFORM LOAD-TALK-TO-SQLUTIL THRU LOAD-TALK-TO-SQLUTIL-EXIT
7360 PERFORM LOAD-SQLMSGS THRU LOAD-SQLMSGS-EXIT
7380 GO TO LOAD-PROCESS.
7400 LOAD-PROCESS-EXIT. EXIT.
7420 *
7440 LOAD-TALK-TO-SQLUTIL.
7460 ENTER TAL "INT32^TO^INT"
7480 USING SB-BLOCK-LEN
7500 WK-BLOCK-LEN.
7520 ENTER TAL "READ^FROM^SQLUTIL"
7540 USING SB-RECV-FNUM
7560 SQLREAD-BUFF
7580 WK-BLOCK-LEN
7600 SB-TRACE-FLAG
7620 SB-OUT-FNUM
7640 GIVING ERR.
7660 IF ERR = 1
7680 AND SB-REPLY-CODE = 1
7700 GO TO LOAD-TALK-TO-SQLUTIL-EXIT.
7720 IF ERR NOT = ZERO
7740 DISPLAY "RUN: READ^FROM^SQLUTIL ERROR = " ERR
7760 DISPLAY "RUN: READ^FROM^SQLUTIL ERROR = " ERR UPON LOG
7780 GO TO END-JOB.
7800 ENTER TAL "INT32^TO^INT"
7820 USING SB-BUFF-LEN
7840 WK-BLOCK-LEN.
7860 ENTER TAL "REPLY^TO^SQLUTIL"
7880 USING SB-RECV-FNUM