Data Build Manual

Appendix B Sample Conversion Programs
099331 Tandem Computers Incorporated B–1
This appendix contains COBOL85 Enscribe, SQL-LOAD, and SQL-INSERT conversion
program listings generated by Data Build by following the directions in Section 5,
“Running the Sample Programs.”
Enscribe Conversion
Program
The following program is a sample Enscribe COBOL85 conversion program listing.
Data Build creates this program for the samples when you use the Enscribe option in
the Conversion Environment.
COBOL85-T9257D20-(06JUL93) Default options: On (LIST,LMAP,SHOWCOPY,WARN) Off (CODE,ICODE,MAP)
Copyright Tandem Computers Incorporated 1986-1993
1 ?HEADING "Tandem Data Build T9515D20 01JUN93 - ENSCRIBE Version"
2 * Tandem Data Build - DATA CONVERSION FACILITY
3 * T9515D20 - 01JUN93 - D-series Operating System
4 * COPYRIGHT TANDEM COMPUTERS INCORPORATED 1992, 1993
5 ?SYMBOLS;INSPECT;SAVEABEND
6 ?SEARCH $DATA02.ZDATABLD.TALLIB,$SYSTEM.SYSTEM.COBOLLIB
7 ?CONSULT $SYSTEM.SYSTEM.COBOLEX0
8 ?SQL SQLMAP
9 IDENTIFICATION DIVISION.
10 PROGRAM-ID. CONVERT-DATA.
11 ENVIRONMENT DIVISION.
12 CONFIGURATION SECTION.
13 SOURCE-COMPUTER. TANDEM 16.
14 OBJECT-COMPUTER. TANDEM 16.
15 SPECIAL-NAMES.
16 * COPY U-SPECIAL-NAMES OF USERLIB.
16 <
17 FILE $S.#RUN IS LOG.
18 INPUT-OUTPUT SECTION.
19 FILE-CONTROL.
20 *
21 SELECT F-IN-DEMO01
22 RESERVE 2 AREAS
23 ASSIGN TO "=DATAIN01".
24 *
25 SELECT F-OUT-DEMO01
26 RESERVE 2 AREAS
27 ASSIGN TO "=DATAOT01".
28 *
29 SELECT F-IN-DEMO02
30 RESERVE 2 AREAS
31 ASSIGN TO "=DATAIN02".
32 *
33 SELECT F-OUT-DEMO02
34 RESERVE 2 AREAS
35 ASSIGN TO "=DATAOT02".
36 *
37 SELECT F-IN-DEMO03
38 RESERVE 2 AREAS
39 ASSIGN TO "=DATAIN03".
40 *
41 SELECT F-OUT-DEMO03