Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–10 099331 Tandem Computers Incorporated
53 ADD 1 TO CTR-OUT.
54 P-IN-DEMO01-EXIT. EXIT.
300 *
301 ?SOURCE PROCLIB (P-IN-DEMO02)
55 ?SECTION P-IN-DEMO02
56 * * * * * * * * IN-DEMO02 * * * * * * * *
57 P-IN-DEMO02.
58 MOVE LOW-VALUES TO WK-NULLINDS.
59 MOVE ZERO TO SUB1.
60 * COPY U-IN-DEMO02 OF USERLIB.
60 <
61 P-IN-DEMO02-0001.
62 * COPY U-IN-DEMO02-DEM2-IDNUMBER OF USERLIB.
62 <
63 MOVE DEM2-IDNUMBER OF IN-DEMO02
64 TO DEM2-IDNUMBER-X OF OUT-DEMO02.
65 * COPY U-OUT-DEMO02-DEM2-IDNUMBER OF USERLIB.
65 <
66 P-IN-DEMO02-0002.
67 * COPY U-IN-DEMO02-DEM2-DESCR OF USERLIB.
67 <
68 ENTER "CONVERT" USING DEM2-DESCR OF IN-DEMO02.
69 MOVE DEM2-DESCR OF IN-DEMO02
70 TO DEM2-DESCR OF OUT-DEMO02.
71 * COPY U-OUT-DEMO02-DEM2-DESCR OF USERLIB.
71 <
72 P-IN-DEMO02-0003.
73 * COPY U-IN-DEMO02-DEM2-SUBNUMBER OF USERLIB.
73 <
74 MOVE DEM2-SUBNUMBER OF IN-DEMO02
75 TO DEM2-SUBNUMBER-X OF OUT-DEMO02.
76 * COPY U-OUT-DEMO02-DEM2-SUBNUMBER OF USERLIB.
76 <
77 P-IN-DEMO02-0004.
78 * COPY U-IN-DEMO02-DEM2-CODE1 OF USERLIB.
78 <
79 ENTER "CONVERT" USING DEM2-CODE1 OF IN-DEMO02.
80 MOVE DEM2-CODE1 OF IN-DEMO02
81 TO DEM2-CODE1 OF OUT-DEMO02.
82 * COPY U-OUT-DEMO02-DEM2-CODE1 OF USERLIB.
82 <
83 P-IN-DEMO02-0005.
84 * COPY U-IN-DEMO02-DEM2-CLASS OF USERLIB.
84 <
85 ENTER "CONVERT" USING DEM2-CLASS OF IN-DEMO02.
86 MOVE DEM2-CLASS OF IN-DEMO02
87 TO DEM2-CLASS OF OUT-DEMO02.
88 * COPY U-OUT-DEMO02-DEM2-CLASS OF USERLIB.
88 <
89 P-IN-DEMO02-0006.
90 * COPY U-IN-DEMO02-DEM2-PRICE OF USERLIB.
90 <
91 MOVE DEM2-PRICE OF IN-DEMO02
92 TO DEM2-PRICE-X OF OUT-DEMO02.
93 * COPY U-OUT-DEMO02-DEM2-PRICE OF USERLIB.
93 <