Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–30 099331 Tandem Computers Incorporated
118 P-IN-DEMO02-0011.
119 * COPY U-IN-DEMO02-DEM2-DATE1 OF USERLIB.
119 <
120 ENTER "CONVERT" USING DEM2-DATE1 OF IN-DEMO02.
121 MOVE ZEROS TO WK-TIMESTAMP.
122 MOVE DEM2-DATE1 OF IN-DEMO02 TO WK-DATE.
123 PERFORM CONVERT-TIMESTAMP.
124 MOVE W2-JUL64 TO DEM2-DATE1 OF OUT-DEMO02.
125 * COPY U-OUT-DEMO02-DEM2-DATE1 OF USERLIB.
125 <
126 P-IN-DEMO02-0012.
127 * COPY U-IN-DEMO02-DEM2-DATE2 OF USERLIB.
127 <
128 ENTER "CONVERT" USING DEM2-DATE2 OF IN-DEMO02.
129 ADD 1 TO SUB1.
130 IF DEM2-DATE2-I OF IN-DEMO02 = LOW-VALUE
131 MOVE ZEROS TO WK-TIMESTAMP
132 MOVE DEM2-DATE2 OF IN-DEMO02 TO WK-DATE
133 PERFORM CONVERT-TIMESTAMP
134 MOVE W2-JUL64 TO DEM2-DATE2 OF OUT-DEMO02
135 ELSE
136 MOVE LOW-VALUE TO DEM2-DATE2-X OF OUT-DEMO02
137 MOVE -1 TO WK-NULLIND (SUB1).
138 * COPY U-OUT-DEMO02-DEM2-DATE2 OF USERLIB.
138 <
139 P-IN-DEMO02-0013.
140 * COPY U-IN-DEMO02-DEM2-DATE3 OF USERLIB.
140 <
141 ENTER "CONVERT" USING DEM2-DATE3 OF IN-DEMO02.
142 MOVE ZEROS TO WK-TIMESTAMP.
143 MOVE DEM2-DATE3 OF IN-DEMO02 TO WK-DATE.
144 PERFORM CONVERT-TIMESTAMP.
145 MOVE W2-JUL64 TO DEM2-DATE3 OF OUT-DEMO02.
146 * COPY U-OUT-DEMO02-DEM2-DATE3 OF USERLIB.
146 <
147 P-IN-DEMO02-0014.
148 * COPY U-IN-DEMO02-DEM2-TIME OF USERLIB.
148 <
149 ENTER "CONVERT" USING DEM2-TIME OF IN-DEMO02.
150 MOVE ZEROS TO WK-TIMESTAMP.
151 MOVE DEM2-TIME OF IN-DEMO02 TO WK-TIME.
152 PERFORM CONVERT-TIMESTAMP.
153 MOVE W2-JUL64 TO DEM2-TIME OF OUT-DEMO02.
154 * COPY U-OUT-DEMO02-DEM2-TIME OF USERLIB.
154 <
155 P-IN-DEMO02-9999.
156 ADD ZERO TO ERR.
157 * COPY U-OUT-DEMO02 OF USERLIB.
157 <
158 MOVE WK-NULLINDS TO SQL-NULLINDS.
159 ENTER TAL "MOVE^REC" USING OUT-DEMO02 LEN-DEMO02 LOAD-REC.
160 PERFORM LOAD THRU LOAD-EXIT.
161 ADD 1 TO CTR-OUT.
162 P-IN-DEMO02-EXIT. EXIT.
6540 *
6560 ?SOURCE PROCLIB (P-IN-DEMO03)