Data Build Manual

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