Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–35
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.
8960 *
8980 ?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
20 MOVE W1-DATE-TIME4 TO W2-DATE-TIME4.
21 MOVE W1-DATE-TIME5 TO W2-DATE-TIME5.
22 MOVE W1-DATE-TIME6 TO W2-DATE-TIME6.
23 MOVE W1-DATE-TIME7 TO W2-DATE-TIME7.
24 DISPLAY "RUN: Start -> " W2-DATE-TIME2 "/" W2-DATE-TIME3
25 "/" W2-DATE-TIME1 " " W2-DATE-TIME4 ":" W2-DATE-TIME5
26 ":" W2-DATE-TIME6.
27 DISPLAY "RUN: Start -> " W2-DATE-TIME2 "/" W2-DATE-TIME3
28 "/" W2-DATE-TIME1 " " W2-DATE-TIME4 ":" W2-DATE-TIME5
29 ":" W2-DATE-TIME6 UPON LOG.
30 DISPLAY "RUN: RUN DATA CONVERSION PROGRAM".
31 DISPLAY "RUN: RUN DATA CONVERSION PROGRAM" UPON LOG.
32 TIME-START-EXIT. EXIT.
9000 *
9020 RUN-OPTIONS.
9040 DISPLAY "RUN: Options In Effect:".
9060 DISPLAY "RUN: Options In Effect:" UPON LOG.
9080 DISPLAY "RUN: 1 = SQL-LOAD ".
9100 DISPLAY "RUN: 1 = SQL-LOAD " UPON LOG.
9120 RUN-OPTIONS-EXIT. EXIT.
9140 *
9160 ?SOURCE $DATA02.ZDATABLD.COBSOURC (TIME-STOP)
33 ?SECTION TIME-STOP
34 TIME-STOP.
35 ENTER TAL "TIME" USING W1-DATE-TIME.
36 MOVE W1-DATE-TIME1 TO W2-DATE-TIME1.
37 MOVE W1-DATE-TIME2 TO W2-DATE-TIME2.
38 MOVE W1-DATE-TIME3 TO W2-DATE-TIME3
39 MOVE W1-DATE-TIME4 TO W2-DATE-TIME4.
40 MOVE W1-DATE-TIME5 TO W2-DATE-TIME5.
41 MOVE W1-DATE-TIME6 TO W2-DATE-TIME6.
42 MOVE W1-DATE-TIME7 TO W2-DATE-TIME7.
43 DISPLAY "RUN:".
44 DISPLAY "RUN:" UPON LOG.
45 DISPLAY "RUN: RUN DATA CONVERSION PROGRAM COMPLETE".
46 DISPLAY "RUN: RUN DATA CONVERSION PROGRAM COMPLETE" UPON LOG.
47 DISPLAY "RUN: Stop -> " W2-DATE-TIME2 "/" W2-DATE-TIME3
48 "/" W2-DATE-TIME1 " " W2-DATE-TIME4 ":" W2-DATE-TIME5