Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–13
182 * COPY U-IN-DEMO03-DEM3-NUMBER OF USERLIB.
182 <
183 MOVE DEM3-NUMBER OF IN-DEMO03
184 TO DEM3-NUMBER-X OF OUT-DEMO03.
185 * COPY U-OUT-DEMO03-DEM3-NUMBER OF USERLIB.
185 <
186 P-IN-DEMO03-0004.
187 * COPY U-IN-DEMO03-DEM3-DESCR OF USERLIB.
187 <
188 ENTER "CONVERT" USING DEM3-DESCR OF IN-DEMO03.
189 MOVE DEM3-DESCR OF IN-DEMO03
190 TO DEM3-DESCR OF OUT-DEMO03.
191 * COPY U-OUT-DEMO03-DEM3-DESCR OF USERLIB.
191 <
192 P-IN-DEMO03-0005.
193 * COPY U-IN-DEMO03-DEM3-TYPE OF USERLIB.
193 <
194 MOVE DEM3-TYPE OF IN-DEMO03
195 TO DEM3-TYPE-X OF OUT-DEMO03.
196 * COPY U-OUT-DEMO03-DEM3-TYPE OF USERLIB.
196 <
197 P-IN-DEMO03-0006.
198 * COPY U-IN-DEMO03-DEM3-VENDORID OF USERLIB.
198 <
199 MOVE DEM3-VENDORID OF IN-DEMO03
200 TO DEM3-VENDORID-X OF OUT-DEMO03.
201 * COPY U-OUT-DEMO03-DEM3-VENDORID OF USERLIB.
201 <
202 P-IN-DEMO03-0007.
203 * COPY U-IN-DEMO03-DEM3-WHLSLRID OF USERLIB.
203 <
204 MOVE DEM3-WHLSLRID OF IN-DEMO03
205 TO DEM3-WHLSLRID-X OF OUT-DEMO03.
206 * COPY U-OUT-DEMO03-DEM3-WHLSLRID OF USERLIB.
206 <
207 P-IN-DEMO03-0008.
208 * COPY U-IN-DEMO03-DEM3-PARTNO OF USERLIB.
208 <
209 MOVE DEM3-PARTNO OF IN-DEMO03
210 TO DEM3-PARTNO-X OF OUT-DEMO03.
211 * COPY U-OUT-DEMO03-DEM3-PARTNO OF USERLIB.
211 <
212 P-IN-DEMO03-0009.
213 * COPY U-IN-DEMO03-DEM3-PRICE OF USERLIB.
213 <
214 ENTER "PTOB" USING N DEM3-PRICE OF IN-DEMO03
215 DEM3-PRICE OF OUT-DEMO03
216 GIVING ERR.
217 * COPY U-OUT-DEMO03-DEM3-PRICE OF USERLIB.
217 <
218 P-IN-DEMO03-0010.
219 * COPY U-IN-DEMO03-DEM3-CODE OF USERLIB.
219 <
220 ENTER "CONVERT" USING DEM3-CODE OF IN-DEMO03.
221 MOVE DEM3-CODE OF IN-DEMO03
222 TO DEM3-CODE OF OUT-DEMO03.