Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–15
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.
325 *
326 RUN-OPTIONS.
327 DISPLAY "RUN: Options In Effect:".
328 DISPLAY "RUN: Options In Effect:" UPON LOG.
329 DISPLAY "RUN: 1 = ENSCRIBE ".
330 DISPLAY "RUN: 1 = ENSCRIBE " UPON LOG.
331 RUN-OPTIONS-EXIT. EXIT.
332 *
333 ?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
49 ":" W2-DATE-TIME6.
50 DISPLAY "RUN: Stop -> " W2-DATE-TIME2 "/" W2-DATE-TIME3
51 "/" W2-DATE-TIME1 " " W2-DATE-TIME4 ":" W2-DATE-TIME5
52 ":" W2-DATE-TIME6 UPON LOG.
53 TIME-STOP-EXIT. EXIT.
334 *
335 *COPY U-USER-ROUTINES OF USERLIB.
335 <
336 *
337 * Tandem Data Build - T9515D20 - 01JUN93 - D-series Operating System
338 * Copyright Tandem Computers Incorporated 1992, 1993
339 * Tandem Data Build - ENSCRIBE Version
ENTRY POINT MAP BY NAME FOR FILE: \D00.$DATA01.KOD2016.ZZPROGMX
SP PEP BASE LIMIT ENTRY ATTRS NAME DATE TIME LANGUAGE SOURCE FILE
00 004 011202 011673 011602 V CONVERT 1993-07-21 13:26 TAL $DATA3.DATABLD.STALLIB