Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–28 099331 Tandem Computers Incorporated
35 TO DEM1-ADDRESS OF OUT-DEMO01.
36 * COPY U-OUT-DEMO01-DEM1-ADDRESS OF USERLIB.
36 <
37 P-IN-DEMO01-0006.
38 * COPY U-IN-DEMO01-DEM1-CITY OF USERLIB.
38 <
39 ENTER "CONVERT" USING DEM1-CITY OF IN-DEMO01.
40 MOVE DEM1-CITY OF IN-DEMO01
41 TO DEM1-CITY OF OUT-DEMO01.
42 * COPY U-OUT-DEMO01-DEM1-CITY OF USERLIB.
42 <
43 P-IN-DEMO01-0007.
44 * COPY U-IN-DEMO01-DEM1-CODE OF USERLIB.
44 <
45 ENTER "CONVERT" USING DEM1-CODE OF IN-DEMO01.
46 MOVE DEM1-CODE OF IN-DEMO01
47 TO DEM1-CODE OF OUT-DEMO01.
48 * COPY U-OUT-DEMO01-DEM1-CODE OF USERLIB.
48 <
49 P-IN-DEMO01-9999.
50 ADD ZERO TO ERR.
51 * COPY U-OUT-DEMO01 OF USERLIB.
51 <
52 MOVE WK-NULLINDS TO SQL-NULLINDS.
53 ENTER TAL "MOVE^REC" USING OUT-DEMO01 LEN-DEMO01 LOAD-REC.
54 PERFORM LOAD THRU LOAD-EXIT.
55 ADD 1 TO CTR-OUT.
56 P-IN-DEMO01-EXIT. EXIT.
6500 *
6520 ?SOURCE PROCLIB (P-IN-DEMO02)
57 ?SECTION P-IN-DEMO02
58 * * * * * * * * IN-DEMO02 * * * * * * * *
59 P-IN-DEMO02.
60 MOVE LOW-VALUES TO WK-NULLINDS.
61 MOVE ZERO TO SUB1.
62 * COPY U-IN-DEMO02 OF USERLIB.
62 <
63 P-IN-DEMO02-0001.
64 * COPY U-IN-DEMO02-DEM2-IDNUMBER OF USERLIB.
64 <
65 MOVE DEM2-IDNUMBER OF IN-DEMO02
66 TO DEM2-IDNUMBER-X OF OUT-DEMO02.
67 * COPY U-OUT-DEMO02-DEM2-IDNUMBER OF USERLIB.
67 <
68 P-IN-DEMO02-0002.
69 * COPY U-IN-DEMO02-DEM2-DESCR OF USERLIB.
69 <
70 ENTER "CONVERT" USING DEM2-DESCR OF IN-DEMO02.
71 MOVE DEM2-DESCR OF IN-DEMO02
72 TO DEM2-DESCR OF OUT-DEMO02.
73 * COPY U-OUT-DEMO02-DEM2-DESCR OF USERLIB.
73 <
74 P-IN-DEMO02-0003.
75 * COPY U-IN-DEMO02-DEM2-SUBNUMBER OF USERLIB.
75 <
76 MOVE DEM2-SUBNUMBER OF IN-DEMO02