Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–32 099331 Tandem Computers Incorporated
206 P-IN-DEMO03-0007.
207 * COPY U-IN-DEMO03-DEM3-WHLSLRID OF USERLIB.
207 <
208 MOVE DEM3-WHLSLRID OF IN-DEMO03
209 TO DEM3-WHLSLRID-X OF OUT-DEMO03.
210 * COPY U-OUT-DEMO03-DEM3-WHLSLRID OF USERLIB.
210 <
211 P-IN-DEMO03-0008.
212 * COPY U-IN-DEMO03-DEM3-PARTNO OF USERLIB.
212 <
213 MOVE DEM3-PARTNO OF IN-DEMO03
214 TO DEM3-PARTNO-X OF OUT-DEMO03.
215 * COPY U-OUT-DEMO03-DEM3-PARTNO OF USERLIB.
215 <
216 P-IN-DEMO03-0009.
217 * COPY U-IN-DEMO03-DEM3-PRICE OF USERLIB.
217 <
218 ENTER "PTOB" USING N DEM3-PRICE OF IN-DEMO03
219 DEM3-PRICE OF OUT-DEMO03
220 GIVING ERR.
221 * COPY U-OUT-DEMO03-DEM3-PRICE OF USERLIB.
221 <
222 P-IN-DEMO03-0010.
223 * COPY U-IN-DEMO03-DEM3-CODE OF USERLIB.
223 <
224 ENTER "CONVERT" USING DEM3-CODE OF IN-DEMO03.
225 MOVE DEM3-CODE OF IN-DEMO03
226 TO DEM3-CODE OF OUT-DEMO03.
227 * COPY U-OUT-DEMO03-DEM3-CODE OF USERLIB.
227 <
228 P-IN-DEMO03-0011.
229 * COPY U-IN-DEMO03-DEM3-COST OF USERLIB.
229 <
230 MOVE DEM3-COST OF IN-DEMO03
231 TO DEM3-COST-X OF OUT-DEMO03.
232 * COPY U-OUT-DEMO03-DEM3-COST OF USERLIB.
232 <
233 P-IN-DEMO03-9999.
234 ADD ZERO TO ERR.
235 * COPY U-OUT-DEMO03 OF USERLIB.
235 <
236 MOVE WK-NULLINDS TO SQL-NULLINDS.
237 ENTER TAL "MOVE^REC" USING OUT-DEMO03 LEN-DEMO03 LOAD-REC.
238 PERFORM LOAD THRU LOAD-EXIT.
239 ADD 1 TO CTR-OUT.
240 P-IN-DEMO03-EXIT. EXIT.
6580 *
6600 LOAD.
6620 IF REQ-CODE = "1"
6640 PERFORM LOAD-INIT THRU LOAD-INIT-EXIT
6660 ELSE IF REQ-CODE = "2"
6680 PERFORM LOAD-PROCESS THRU LOAD-PROCESS-EXIT
6700 ELSE IF REQ-CODE = "3"
6720 PERFORM LOAD-CLOSEDOWN THRU LOAD-CLOSEDOWN-EXIT.
6740 LOAD-EXIT. EXIT.
6760 *