Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–52 099331 Tandem Computers Incorporated
165 * COPY U-OUT-DEMO02 OF USERLIB.
165 <
166 MOVE WK-NULLINDS TO SQL-NULLINDS.
167 EXEC SQL INSERT INTO =DEMO02 VALUES
168 (:DEM2-IDNUMBER OF OUT-DEMO02
169 ,:DEM2-DESCR OF OUT-DEMO02
170 ,:DEM2-SUBNUMBER OF OUT-DEMO02
171 ,:DEM2-CODE1 OF OUT-DEMO02
172 ,:DEM2-CLASS OF OUT-DEMO02
173 ,:DEM2-PRICE OF OUT-DEMO02
174 ,:DEM2-COST1 OF OUT-DEMO02
175 ,:DEM2-CARRIER OF OUT-DEMO02
176 ,:DEM2-COST2 OF OUT-DEMO02
177 ,:DEM2-VENDOR OF OUT-DEMO02
178 ,(CONVERTTIMESTAMP (:DEM2-DATE1 OF OUT-DEMO02))
179 ,(CONVERTTIMESTAMP (:DEM2-DATE2 OF OUT-DEMO02 :SQL-NULLIND000))
180 ,(CONVERTTIMESTAMP (:DEM2-DATE3 OF OUT-DEMO02))
181 ,(CONVERTTIMESTAMP (:DEM2-TIME OF OUT-DEMO02))
182 )
183 END-EXEC.
184 PERFORM INSERT-SQLMSGS.
185 P-IN-DEMO02-EXIT. EXIT.
6540 *
6560 ?SOURCE PROCLIB (P-IN-DEMO03)
186 ?SECTION P-IN-DEMO03
187 * * * * * * * * IN-DEMO03 * * * * * * * *
188 P-IN-DEMO03.
189 MOVE LOW-VALUES TO WK-NULLINDS.
190 MOVE ZERO TO SUB1.
191 * COPY U-IN-DEMO03 OF USERLIB.
191 <
192 P-IN-DEMO03-0001.
193 * COPY U-IN-DEMO03-DEM3-DATE OF USERLIB.
193 <
194 ENTER "CONVERT" USING DEM3-DATE OF IN-DEMO03.
195 MOVE ZEROS TO WK-TIMESTAMP.
196 MOVE DEM3-DATE OF IN-DEMO03 TO WK-DATE.
197 PERFORM CONVERT-TIMESTAMP.
198 MOVE W2-JUL64 TO DEM3-DATE OF OUT-DEMO03.
199 * COPY U-OUT-DEMO03-DEM3-DATE OF USERLIB.
199 <
200 P-IN-DEMO03-0002.
201 * COPY U-IN-DEMO03-DEM3-TIME OF USERLIB.
201 <
202 ENTER "CONVERT" USING DEM3-TIME OF IN-DEMO03.
203 MOVE ZEROS TO WK-TIMESTAMP.
204 MOVE DEM3-TIME OF IN-DEMO03 TO WK-TIME.
205 PERFORM CONVERT-TIMESTAMP.
206 MOVE W2-JUL64 TO DEM3-TIME OF OUT-DEMO03.
207 * COPY U-OUT-DEMO03-DEM3-TIME OF USERLIB.
207 <
208 P-IN-DEMO03-0003.
209 * COPY U-IN-DEMO03-DEM3-NUMBER OF USERLIB.
209 <
210 MOVE DEM3-NUMBER OF IN-DEMO03
211 TO DEM3-NUMBER-X OF OUT-DEMO03.