Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–14 099331 Tandem Computers Incorporated
223 * COPY U-OUT-DEMO03-DEM3-CODE OF USERLIB.
223 <
224 P-IN-DEMO03-0011.
225 * COPY U-IN-DEMO03-DEM3-COST OF USERLIB.
225 <
226 MOVE DEM3-COST OF IN-DEMO03
227 TO DEM3-COST-X OF OUT-DEMO03.
228 * COPY U-OUT-DEMO03-DEM3-COST OF USERLIB.
228 <
229 P-IN-DEMO03-9999.
230 ADD ZERO TO ERR.
231 * COPY U-OUT-DEMO03 OF USERLIB.
231 <
232 WRITE OUT-DEMO03.
233 ADD 1 TO CTR-OUT.
234 P-IN-DEMO03-EXIT. EXIT.
304 *
305 CONVERT-TIMESTAMP.
306 IF WK-DATE = ZEROS
307 MOVE 1991 TO WK-YR
308 MOVE 01 TO WK-MO
309 MOVE 01 TO WK-DA.
310 MOVE WK-YR TO W2-YR.
311 MOVE WK-MO TO W2-MO.
312 MOVE WK-DA TO W2-DA.
313 MOVE WK-HR TO W2-HR.
314 MOVE WK-MN TO W2-MN.
315 MOVE WK-SC TO W2-SC.
316 MOVE WK-FRACTN1 TO W2-FRACTN1.
317 MOVE WK-FRACTN2 TO W2-FRACTN2.
318 ENTER TAL "COMPUTETIMESTAMP"
319 USING W2-TIMESTAMP
320 GIVING W2-JUL64.
321 *
322 ?SOURCE $DATA02.ZDATABLD.COBSOURC (PROG-BANNER)
1 ?SECTION PROG-BANNER
2 PROG-BANNER.
3 DISPLAY " Tandem Data Build - DATA CONVERSION FACILITY ".
4 DISPLAY " Tandem Data Build - DATA CONVERSION FACILITY " UPON LOG.
5 DISPLAY " T9515D20 - 01JUN93 - " SYSTEM-SERIES "-series Operating System".
6 DISPLAY " T9515D20 - 01JUN93 - " SYSTEM-SERIES "-series Operating System"
7 UPON LOG.
8 DISPLAY "COPYRIGHT TANDEM COMPUTERS INCORPORATED 1992, 1993".
9 DISPLAY "COPYRIGHT TANDEM COMPUTERS INCORPORATED 1992, 1993" UPON LOG.
10 DISPLAY "==================================================".
11 DISPLAY "==================================================" UPON LOG.
12 DISPLAY " ".
13 DISPLAY " " UPON LOG.
323 *
324 ?SOURCE $DATA02.ZDATABLD.COBSOURC (TIME-START)
14 ?SECTION TIME-START
15 TIME-START.
16 ENTER TAL "TIME" USING W1-DATE-TIME.
17 MOVE W1-DATE-TIME1 TO W2-DATE-TIME1.
18 MOVE W1-DATE-TIME2 TO W2-DATE-TIME2.
19 MOVE W1-DATE-TIME3 TO W2-DATE-TIME3