Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–12 099331 Tandem Computers Incorporated
138 * COPY U-IN-DEMO02-DEM2-DATE3 OF USERLIB.
138 <
139 ENTER "CONVERT" USING DEM2-DATE3 OF IN-DEMO02.
140 MOVE ZEROS TO WK-TIMESTAMP.
141 MOVE DEM2-DATE3 OF IN-DEMO02 TO WK-DATE.
142 PERFORM CONVERT-TIMESTAMP.
143 MOVE W2-JUL64 TO DEM2-DATE3 OF OUT-DEMO02.
144 * COPY U-OUT-DEMO02-DEM2-DATE3 OF USERLIB.
144 <
145 P-IN-DEMO02-0014.
146 * COPY U-IN-DEMO02-DEM2-TIME OF USERLIB.
146 <
147 ENTER "CONVERT" USING DEM2-TIME OF IN-DEMO02.
148 MOVE ZEROS TO WK-TIMESTAMP.
149 MOVE DEM2-TIME OF IN-DEMO02 TO WK-TIME.
150 PERFORM CONVERT-TIMESTAMP.
151 MOVE W2-JUL64 TO DEM2-TIME OF OUT-DEMO02.
152 * COPY U-OUT-DEMO02-DEM2-TIME OF USERLIB.
152 <
153 P-IN-DEMO02-9999.
154 ADD ZERO TO ERR.
155 * COPY U-OUT-DEMO02 OF USERLIB.
155 <
156 WRITE OUT-DEMO02.
157 ADD 1 TO CTR-OUT.
158 P-IN-DEMO02-EXIT. EXIT.
302 *
303 ?SOURCE PROCLIB (P-IN-DEMO03)
159 ?SECTION P-IN-DEMO03
160 * * * * * * * * IN-DEMO03 * * * * * * * *
161 P-IN-DEMO03.
162 MOVE LOW-VALUES TO WK-NULLINDS.
163 MOVE ZERO TO SUB1.
164 * COPY U-IN-DEMO03 OF USERLIB.
164 <
165 P-IN-DEMO03-0001.
166 * COPY U-IN-DEMO03-DEM3-DATE OF USERLIB.
166 <
167 ENTER "CONVERT" USING DEM3-DATE OF IN-DEMO03.
168 MOVE ZEROS TO WK-TIMESTAMP.
169 MOVE DEM3-DATE OF IN-DEMO03 TO WK-DATE.
170 PERFORM CONVERT-TIMESTAMP.
171 MOVE W2-JUL64 TO DEM3-DATE OF OUT-DEMO03.
172 * COPY U-OUT-DEMO03-DEM3-DATE OF USERLIB.
172 <
173 P-IN-DEMO03-0002.
174 * COPY U-IN-DEMO03-DEM3-TIME OF USERLIB.
174 <
175 ENTER "CONVERT" USING DEM3-TIME OF IN-DEMO03.
176 MOVE ZEROS TO WK-TIMESTAMP.
177 MOVE DEM3-TIME OF IN-DEMO03 TO WK-TIME.
178 PERFORM CONVERT-TIMESTAMP.
179 MOVE W2-JUL64 TO DEM3-TIME OF OUT-DEMO03.
180 * COPY U-OUT-DEMO03-DEM3-TIME OF USERLIB.
180 <
181 P-IN-DEMO03-0003.