Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–11
94 P-IN-DEMO02-0007.
95 * COPY U-IN-DEMO02-DEM2-COST1 OF USERLIB.
95 <
96 MOVE DEM2-COST1 OF IN-DEMO02
97 TO DEM2-COST1-X OF OUT-DEMO02.
98 * COPY U-OUT-DEMO02-DEM2-COST1 OF USERLIB.
98 <
99 P-IN-DEMO02-0008.
100 * COPY U-IN-DEMO02-DEM2-CARRIER OF USERLIB.
100 <
101 ENTER "CONVERT" USING DEM2-CARRIER OF IN-DEMO02.
102 MOVE DEM2-CARRIER OF IN-DEMO02
103 TO DEM2-CARRIER OF OUT-DEMO02.
104 * COPY U-OUT-DEMO02-DEM2-CARRIER OF USERLIB.
104 <
105 P-IN-DEMO02-0009.
106 * COPY U-IN-DEMO02-DEM2-COST2 OF USERLIB.
106 <
107 MOVE DEM2-COST2 OF IN-DEMO02
108 TO DEM2-COST2-X OF OUT-DEMO02.
109 * COPY U-OUT-DEMO02-DEM2-COST2 OF USERLIB.
109 <
110 P-IN-DEMO02-0010.
111 * COPY U-IN-DEMO02-DEM2-VENDOR OF USERLIB.
111 <
112 ENTER "CONVERT" USING DEM2-VENDOR OF IN-DEMO02.
113 MOVE DEM2-VENDOR OF IN-DEMO02
114 TO DEM2-VENDOR OF OUT-DEMO02.
115 * COPY U-OUT-DEMO02-DEM2-VENDOR OF USERLIB.
115 <
116 P-IN-DEMO02-0011.
117 * COPY U-IN-DEMO02-DEM2-DATE1 OF USERLIB.
117 <
118 ENTER "CONVERT" USING DEM2-DATE1 OF IN-DEMO02.
119 MOVE ZEROS TO WK-TIMESTAMP.
120 MOVE DEM2-DATE1 OF IN-DEMO02 TO WK-DATE.
121 PERFORM CONVERT-TIMESTAMP.
122 MOVE W2-JUL64 TO DEM2-DATE1 OF OUT-DEMO02.
123 * COPY U-OUT-DEMO02-DEM2-DATE1 OF USERLIB.
123 <
124 P-IN-DEMO02-0012.
125 * COPY U-IN-DEMO02-DEM2-DATE2 OF USERLIB.
125 <
126 ENTER "CONVERT" USING DEM2-DATE2 OF IN-DEMO02.
127 ADD 1 TO SUB1.
128 IF DEM2-DATE2-I OF IN-DEMO02 = LOW-VALUE
129 MOVE ZEROS TO WK-TIMESTAMP
130 MOVE DEM2-DATE2 OF IN-DEMO02 TO WK-DATE
131 PERFORM CONVERT-TIMESTAMP
132 MOVE W2-JUL64 TO DEM2-DATE2 OF OUT-DEMO02
133 ELSE
134 MOVE LOW-VALUE TO DEM2-DATE2-X OF OUT-DEMO02
135 MOVE -1 TO WK-NULLIND (SUB1).
136 * COPY U-OUT-DEMO02-DEM2-DATE2 OF USERLIB.
136 <
137 P-IN-DEMO02-0013.