Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–29
77 TO DEM2-SUBNUMBER-X OF OUT-DEMO02.
78 * COPY U-OUT-DEMO02-DEM2-SUBNUMBER OF USERLIB.
78 <
79 P-IN-DEMO02-0004.
80 * COPY U-IN-DEMO02-DEM2-CODE1 OF USERLIB.
80 <
81 ENTER "CONVERT" USING DEM2-CODE1 OF IN-DEMO02.
82 MOVE DEM2-CODE1 OF IN-DEMO02
83 TO DEM2-CODE1 OF OUT-DEMO02.
84 * COPY U-OUT-DEMO02-DEM2-CODE1 OF USERLIB.
84 <
85 P-IN-DEMO02-0005.
86 * COPY U-IN-DEMO02-DEM2-CLASS OF USERLIB.
86 <
87 ENTER "CONVERT" USING DEM2-CLASS OF IN-DEMO02.
88 MOVE DEM2-CLASS OF IN-DEMO02
89 TO DEM2-CLASS OF OUT-DEMO02.
90 * COPY U-OUT-DEMO02-DEM2-CLASS OF USERLIB.
90 <
91 P-IN-DEMO02-0006.
92 * COPY U-IN-DEMO02-DEM2-PRICE OF USERLIB.
92 <
93 MOVE DEM2-PRICE OF IN-DEMO02
94 TO DEM2-PRICE-X OF OUT-DEMO02.
95 * COPY U-OUT-DEMO02-DEM2-PRICE OF USERLIB.
95 <
96 P-IN-DEMO02-0007.
97 * COPY U-IN-DEMO02-DEM2-COST1 OF USERLIB.
97 <
98 MOVE DEM2-COST1 OF IN-DEMO02
99 TO DEM2-COST1-X OF OUT-DEMO02.
100 * COPY U-OUT-DEMO02-DEM2-COST1 OF USERLIB.
100 <
101 P-IN-DEMO02-0008.
102 * COPY U-IN-DEMO02-DEM2-CARRIER OF USERLIB.
102 <
103 ENTER "CONVERT" USING DEM2-CARRIER OF IN-DEMO02.
104 MOVE DEM2-CARRIER OF IN-DEMO02
105 TO DEM2-CARRIER OF OUT-DEMO02.
106 * COPY U-OUT-DEMO02-DEM2-CARRIER OF USERLIB.
106 <
107 P-IN-DEMO02-0009.
108 * COPY U-IN-DEMO02-DEM2-COST2 OF USERLIB.
108 <
109 MOVE DEM2-COST2 OF IN-DEMO02
110 TO DEM2-COST2-X OF OUT-DEMO02.
111 * COPY U-OUT-DEMO02-DEM2-COST2 OF USERLIB.
111 <
112 P-IN-DEMO02-0010.
113 * COPY U-IN-DEMO02-DEM2-VENDOR OF USERLIB.
113 <
114 ENTER "CONVERT" USING DEM2-VENDOR OF IN-DEMO02.
115 MOVE DEM2-VENDOR OF IN-DEMO02
116 TO DEM2-VENDOR OF OUT-DEMO02.
117 * COPY U-OUT-DEMO02-DEM2-VENDOR OF USERLIB.
117 <