Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–9
11 TO DEM1-STATE OF OUT-DEMO01.
12 * COPY U-OUT-DEMO01-DEM1-STATE OF USERLIB.
12 <
13 P-IN-DEMO01-0002.
14 * COPY U-IN-DEMO01-DEM1-ZIPCODE OF USERLIB.
14 <
15 ENTER "CONVERT" USING DEM1-ZIPCODE OF IN-DEMO01.
16 MOVE DEM1-ZIPCODE OF IN-DEMO01
17 TO DEM1-ZIPCODE OF OUT-DEMO01.
18 * COPY U-OUT-DEMO01-DEM1-ZIPCODE OF USERLIB.
18 <
19 P-IN-DEMO01-0003.
20 * COPY U-IN-DEMO01-DEM1-PHONE OF USERLIB.
20 <
21 ENTER "PTOB" USING N DEM1-PHONE OF IN-DEMO01
22 DEM1-PHONE OF OUT-DEMO01
23 GIVING ERR.
24 * COPY U-OUT-DEMO01-DEM1-PHONE OF USERLIB.
24 <
25 P-IN-DEMO01-0004.
26 * COPY U-IN-DEMO01-DEM1-NAME OF USERLIB.
26 <
27 ENTER "CONVERT" USING DEM1-NAME OF IN-DEMO01.
28 MOVE DEM1-NAME OF IN-DEMO01
29 TO DEM1-NAME OF OUT-DEMO01.
30 * COPY U-OUT-DEMO01-DEM1-NAME OF USERLIB.
30 <
31 P-IN-DEMO01-0005.
32 * COPY U-IN-DEMO01-DEM1-ADDRESS OF USERLIB.
32 <
33 ENTER "CONVERT" USING DEM1-ADDRESS OF IN-DEMO01.
34 MOVE DEM1-ADDRESS OF IN-DEMO01
35 TO DEM1-ADDRESS OF OUT-DEMO01.
36 * COPY U-OUT-DEMO01-DEM1-ADDRESS OF USERLIB.
36 <
37 P-IN-DEMO01-0006.
38 * COPY U-IN-DEMO01-DEM1-CITY OF USERLIB.
38 <
39 ENTER "CONVERT" USING DEM1-CITY OF IN-DEMO01.
40 MOVE DEM1-CITY OF IN-DEMO01
41 TO DEM1-CITY OF OUT-DEMO01.
42 * COPY U-OUT-DEMO01-DEM1-CITY OF USERLIB.
42 <
43 P-IN-DEMO01-0007.
44 * COPY U-IN-DEMO01-DEM1-CODE OF USERLIB.
44 <
45 ENTER "CONVERT" USING DEM1-CODE OF IN-DEMO01.
46 MOVE DEM1-CODE OF IN-DEMO01
47 TO DEM1-CODE OF OUT-DEMO01.
48 * COPY U-OUT-DEMO01-DEM1-CODE OF USERLIB.
48 <
49 P-IN-DEMO01-9999.
50 ADD ZERO TO ERR.
51 * COPY U-OUT-DEMO01 OF USERLIB.
51 <
52 WRITE OUT-DEMO01.