Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–55
7180 USING W2-TIMESTAMP
7200 GIVING W2-JUL64.
7220 *
7240 ?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.
7260 *
7280 ?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.
7300 *
7320 RUN-OPTIONS.
7340 DISPLAY "RUN: Options In Effect:".
7360 DISPLAY "RUN: Options In Effect:" UPON LOG.
7380 DISPLAY "RUN: 1 = SQL-INSERT".
7400 DISPLAY "RUN: 1 = SQL-INSERT" UPON LOG.
7420 DISPLAY "RUN: 5 = ALLOW12345".
7440 DISPLAY "RUN: 5 = ALLOW12345" UPON LOG.
7460 RUN-OPTIONS-EXIT. EXIT.
7480 *
7500 ?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.