Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–53
212 * COPY U-OUT-DEMO03-DEM3-NUMBER OF USERLIB.
212 <
213 P-IN-DEMO03-0004.
214 * COPY U-IN-DEMO03-DEM3-DESCR OF USERLIB.
214 <
215 ENTER "CONVERT" USING DEM3-DESCR OF IN-DEMO03.
216 MOVE DEM3-DESCR OF IN-DEMO03
217 TO DEM3-DESCR OF OUT-DEMO03.
218 * COPY U-OUT-DEMO03-DEM3-DESCR OF USERLIB.
218 <
219 P-IN-DEMO03-0005.
220 * COPY U-IN-DEMO03-DEM3-TYPE OF USERLIB.
220 <
221 MOVE DEM3-TYPE OF IN-DEMO03
222 TO DEM3-TYPE-X OF OUT-DEMO03.
223 * COPY U-OUT-DEMO03-DEM3-TYPE OF USERLIB.
223 <
224 P-IN-DEMO03-0006.
225 * COPY U-IN-DEMO03-DEM3-VENDORID OF USERLIB.
225 <
226 MOVE DEM3-VENDORID OF IN-DEMO03
227 TO DEM3-VENDORID-X OF OUT-DEMO03.
228 * COPY U-OUT-DEMO03-DEM3-VENDORID OF USERLIB.
228 <
229 P-IN-DEMO03-0007.
230 * COPY U-IN-DEMO03-DEM3-WHLSLRID OF USERLIB.
230 <
231 MOVE DEM3-WHLSLRID OF IN-DEMO03
232 TO DEM3-WHLSLRID-X OF OUT-DEMO03.
233 * COPY U-OUT-DEMO03-DEM3-WHLSLRID OF USERLIB.
233 <
234 P-IN-DEMO03-0008.
235 * COPY U-IN-DEMO03-DEM3-PARTNO OF USERLIB.
235 <
236 MOVE DEM3-PARTNO OF IN-DEMO03
237 TO DEM3-PARTNO-X OF OUT-DEMO03.
238 * COPY U-OUT-DEMO03-DEM3-PARTNO OF USERLIB.
238 <
239 P-IN-DEMO03-0009.
240 * COPY U-IN-DEMO03-DEM3-PRICE OF USERLIB.
240 <
241 ENTER "PTOB" USING N DEM3-PRICE OF IN-DEMO03
242 DEM3-PRICE OF OUT-DEMO03
243 GIVING ERR.
244 * COPY U-OUT-DEMO03-DEM3-PRICE OF USERLIB.
244 <
245 P-IN-DEMO03-0010.
246 * COPY U-IN-DEMO03-DEM3-CODE OF USERLIB.
246 <
247 ENTER "CONVERT" USING DEM3-CODE OF IN-DEMO03.
248 MOVE DEM3-CODE OF IN-DEMO03
249 TO DEM3-CODE OF OUT-DEMO03.
250 * COPY U-OUT-DEMO03-DEM3-CODE OF USERLIB.
250 <
251 P-IN-DEMO03-0011.
252 * COPY U-IN-DEMO03-DEM3-COST OF USERLIB.