Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–34 099331 Tandem Computers Incorporated
7900 SQLUTIL-BUFF
7920 WK-BLOCK-LEN
7940 SB-REPLY-CODE
7960 SB-TRACE-FLAG
7980 SB-OUT-FNUM
8000 GIVING ERR.
8020 IF ERR NOT = ZERO
8040 DISPLAY "RUN: REPLY^TO^SQLUTIL ERROR = " ERR
8060 DISPLAY "RUN: REPLY^TO^SQLUTIL ERROR = " ERR UPON LOG
8080 GO TO END-JOB.
8100 MOVE ZERO TO SB-INDEX SB-BUFF-LEN SB-REPLY-CODE.
8120 LOAD-TALK-TO-SQLUTIL-EXIT. EXIT.
8140 *
8160 LOAD-CLOSEDOWN.
8180 IF SB-INDEX > ZERO
8200 PERFORM LOAD-TALK-TO-SQLUTIL THRU LOAD-TALK-TO-SQLUTIL-EXIT.
8220 MOVE 1 TO SB-REPLY-CODE.
8240 PERFORM LOAD-TALK-TO-SQLUTIL THRU LOAD-TALK-TO-SQLUTIL-EXIT.
8260 MOVE 1 TO SB-REPLY-CODE.
8280 PERFORM LOAD-TALK-TO-SQLUTIL THRU LOAD-TALK-TO-SQLUTIL-EXIT.
8300 MOVE ZERO TO SB-REPLY-CODE.
8320 ENTER TAL "CLOSE^RECEIVE"
8340 USING SB-RECV-FNUM.
8360 PERFORM LOAD-SQLMSGS THRU LOAD-SQLMSGS-EXIT.
8380 LOAD-CLOSEDOWN-EXIT. EXIT.
8400 *
8420 LOAD-SQLMSGS.
8440 ENTER TAL "READ^SQLMSGS"
8460 USING SB-MSGS-FNUM WK-FNAME SB-MSGS-BUFF
8480 GIVING ERR.
8500 IF ERR = ZERO
8520 DISPLAY SB-MSGS-BUFF UPON LOG
8540 GO TO LOAD-SQLMSGS.
8560 LOAD-SQLMSGS-EXIT. EXIT.
8580 *
8600 CONVERT-TIMESTAMP.
8620 IF WK-DATE = ZEROS
8640 MOVE 1991 TO WK-YR
8660 MOVE 01 TO WK-MO
8680 MOVE 01 TO WK-DA.
8700 MOVE WK-YR TO W2-YR.
8720 MOVE WK-MO TO W2-MO.
8740 MOVE WK-DA TO W2-DA.
8760 MOVE WK-HR TO W2-HR.
8780 MOVE WK-MN TO W2-MN.
8800 MOVE WK-SC TO W2-SC.
8820 MOVE WK-FRACTN1 TO W2-FRACTN1.
8840 MOVE WK-FRACTN2 TO W2-FRACTN2.
8860 ENTER TAL "COMPUTETIMESTAMP"
8880 USING W2-TIMESTAMP
8900 GIVING W2-JUL64.
8920 *
8940 ?SOURCE $DATA02.ZDATABLD.COBSOURC (PROG-BANNER)
1 ?SECTION PROG-BANNER
2 PROG-BANNER.
3 DISPLAY " Tandem Data Build - DATA CONVERSION FACILITY ".