Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–54 099331 Tandem Computers Incorporated
252 <
253 MOVE DEM3-COST OF IN-DEMO03
254 TO DEM3-COST-X OF OUT-DEMO03.
255 * COPY U-OUT-DEMO03-DEM3-COST OF USERLIB.
255 <
256 P-IN-DEMO03-9999.
257 ADD ZERO TO ERR.
258 * COPY U-OUT-DEMO03 OF USERLIB.
258 <
259 MOVE WK-NULLINDS TO SQL-NULLINDS.
260 EXEC SQL INSERT INTO =DEMO03 VALUES
261 ((CONVERTTIMESTAMP (:DEM3-DATE OF OUT-DEMO03))
262 ,(CONVERTTIMESTAMP (:DEM3-TIME OF OUT-DEMO03))
263 ,:DEM3-NUMBER OF OUT-DEMO03
264 ,:DEM3-DESCR OF OUT-DEMO03
265 ,:DEM3-TYPE OF OUT-DEMO03
266 ,:DEM3-VENDORID OF OUT-DEMO03
267 ,:DEM3-WHLSLRID OF OUT-DEMO03
268 ,:DEM3-PARTNO OF OUT-DEMO03
269 ,:DEM3-PRICE OF OUT-DEMO03
270 ,:DEM3-CODE OF OUT-DEMO03
271 ,:DEM3-COST OF OUT-DEMO03
272 )
273 END-EXEC.
274 PERFORM INSERT-SQLMSGS.
275 P-IN-DEMO03-EXIT. EXIT.
6580 *
6600 INSERT-SQLMSGS.
6620 ENTER TAL "READ^SQLMSGS2"
6640 USING SB-MSGS-FNUM SQLCA SB-MSGS-BUFF
6660 GIVING ERR.
6680 IF ERR = ZERO
6700 ADD 1 TO CTR-OUT
6720 ELSE
6740 DISPLAY SB-MSGS-BUFF1
6760 DISPLAY SB-MSGS-BUFF1 UPON LOG
6780 ADD 1 TO CTR-ERROR
6800 IF CTR-ERROR > SB-ALLOW-ERRORS
6820 DISPLAY "RUN: SQL Errors Exceed Allowed Errors"
6840 DISPLAY "RUN: SQL Errors Exceed Allowed Errors" UPON LOG
6860 GO TO END-JOB.
6880 *
6900 CONVERT-TIMESTAMP.
6920 IF WK-DATE = ZEROS
6940 MOVE 1991 TO WK-YR
6960 MOVE 01 TO WK-MO
6980 MOVE 01 TO WK-DA.
7000 MOVE WK-YR TO W2-YR.
7020 MOVE WK-MO TO W2-MO.
7040 MOVE WK-DA TO W2-DA.
7060 MOVE WK-HR TO W2-HR.
7080 MOVE WK-MN TO W2-MN.
7100 MOVE WK-SC TO W2-SC.
7120 MOVE WK-FRACTN1 TO W2-FRACTN1.
7140 MOVE WK-FRACTN2 TO W2-FRACTN2.
7160 ENTER TAL "COMPUTETIMESTAMP"