Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–31
163 ?SECTION P-IN-DEMO03
164 * * * * * * * * IN-DEMO03 * * * * * * * *
165 P-IN-DEMO03.
166 MOVE LOW-VALUES TO WK-NULLINDS.
167 MOVE ZERO TO SUB1.
168 * COPY U-IN-DEMO03 OF USERLIB.
168 <
169 P-IN-DEMO03-0001.
170 * COPY U-IN-DEMO03-DEM3-DATE OF USERLIB.
170 <
171 ENTER "CONVERT" USING DEM3-DATE OF IN-DEMO03.
172 MOVE ZEROS TO WK-TIMESTAMP.
173 MOVE DEM3-DATE OF IN-DEMO03 TO WK-DATE.
174 PERFORM CONVERT-TIMESTAMP.
175 MOVE W2-JUL64 TO DEM3-DATE OF OUT-DEMO03.
176 * COPY U-OUT-DEMO03-DEM3-DATE OF USERLIB.
176 <
177 P-IN-DEMO03-0002.
178 * COPY U-IN-DEMO03-DEM3-TIME OF USERLIB.
178 <
179 ENTER "CONVERT" USING DEM3-TIME OF IN-DEMO03.
180 MOVE ZEROS TO WK-TIMESTAMP.
181 MOVE DEM3-TIME OF IN-DEMO03 TO WK-TIME.
182 PERFORM CONVERT-TIMESTAMP.
183 MOVE W2-JUL64 TO DEM3-TIME OF OUT-DEMO03.
184 * COPY U-OUT-DEMO03-DEM3-TIME OF USERLIB.
184 <
185 P-IN-DEMO03-0003.
186 * COPY U-IN-DEMO03-DEM3-NUMBER OF USERLIB.
186 <
187 MOVE DEM3-NUMBER OF IN-DEMO03
188 TO DEM3-NUMBER-X OF OUT-DEMO03.
189 * COPY U-OUT-DEMO03-DEM3-NUMBER OF USERLIB.
189 <
190 P-IN-DEMO03-0004.
191 * COPY U-IN-DEMO03-DEM3-DESCR OF USERLIB.
191 <
192 ENTER "CONVERT" USING DEM3-DESCR OF IN-DEMO03.
193 MOVE DEM3-DESCR OF IN-DEMO03
194 TO DEM3-DESCR OF OUT-DEMO03.
195 * COPY U-OUT-DEMO03-DEM3-DESCR OF USERLIB.
195 <
196 P-IN-DEMO03-0005.
197 * COPY U-IN-DEMO03-DEM3-TYPE OF USERLIB.
197 <
198 MOVE DEM3-TYPE OF IN-DEMO03
199 TO DEM3-TYPE-X OF OUT-DEMO03.
200 * COPY U-OUT-DEMO03-DEM3-TYPE OF USERLIB.
200 <
201 P-IN-DEMO03-0006.
202 * COPY U-IN-DEMO03-DEM3-VENDORID OF USERLIB.
202 <
203 MOVE DEM3-VENDORID OF IN-DEMO03
204 TO DEM3-VENDORID-X OF OUT-DEMO03.
205 * COPY U-OUT-DEMO03-DEM3-VENDORID OF USERLIB.
205 <