Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–51
119 <
120 P-IN-DEMO02-0010.
121 * COPY U-IN-DEMO02-DEM2-VENDOR OF USERLIB.
121 <
122 ENTER "CONVERT" USING DEM2-VENDOR OF IN-DEMO02.
123 MOVE DEM2-VENDOR OF IN-DEMO02
124 TO DEM2-VENDOR OF OUT-DEMO02.
125 * COPY U-OUT-DEMO02-DEM2-VENDOR OF USERLIB.
125 <
126 P-IN-DEMO02-0011.
127 * COPY U-IN-DEMO02-DEM2-DATE1 OF USERLIB.
127 <
128 ENTER "CONVERT" USING DEM2-DATE1 OF IN-DEMO02.
129 MOVE ZEROS TO WK-TIMESTAMP.
130 MOVE DEM2-DATE1 OF IN-DEMO02 TO WK-DATE.
131 PERFORM CONVERT-TIMESTAMP.
132 MOVE W2-JUL64 TO DEM2-DATE1 OF OUT-DEMO02.
133 * COPY U-OUT-DEMO02-DEM2-DATE1 OF USERLIB.
133 <
134 P-IN-DEMO02-0012.
135 * COPY U-IN-DEMO02-DEM2-DATE2 OF USERLIB.
135 <
136 ENTER "CONVERT" USING DEM2-DATE2 OF IN-DEMO02.
137 ADD 1 TO SUB1.
138 IF DEM2-DATE2-I OF IN-DEMO02 = LOW-VALUE
139 MOVE ZEROS TO WK-TIMESTAMP
140 MOVE DEM2-DATE2 OF IN-DEMO02 TO WK-DATE
141 PERFORM CONVERT-TIMESTAMP
142 MOVE W2-JUL64 TO DEM2-DATE2 OF OUT-DEMO02
143 ELSE
144 MOVE LOW-VALUE TO DEM2-DATE2-X OF OUT-DEMO02
145 MOVE -1 TO WK-NULLIND (SUB1).
146 * COPY U-OUT-DEMO02-DEM2-DATE2 OF USERLIB.
146 <
147 P-IN-DEMO02-0013.
148 * COPY U-IN-DEMO02-DEM2-DATE3 OF USERLIB.
148 <
149 ENTER "CONVERT" USING DEM2-DATE3 OF IN-DEMO02.
150 MOVE ZEROS TO WK-TIMESTAMP.
151 MOVE DEM2-DATE3 OF IN-DEMO02 TO WK-DATE.
152 PERFORM CONVERT-TIMESTAMP.
153 MOVE W2-JUL64 TO DEM2-DATE3 OF OUT-DEMO02.
154 * COPY U-OUT-DEMO02-DEM2-DATE3 OF USERLIB.
154 <
155 P-IN-DEMO02-0014.
156 * COPY U-IN-DEMO02-DEM2-TIME OF USERLIB.
156 <
157 ENTER "CONVERT" USING DEM2-TIME OF IN-DEMO02.
158 MOVE ZEROS TO WK-TIMESTAMP.
159 MOVE DEM2-TIME OF IN-DEMO02 TO WK-TIME.
160 PERFORM CONVERT-TIMESTAMP.
161 MOVE W2-JUL64 TO DEM2-TIME OF OUT-DEMO02.
162 * COPY U-OUT-DEMO02-DEM2-TIME OF USERLIB.
162 <
163 P-IN-DEMO02-9999.
164 ADD ZERO TO ERR.