Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–18 099331 Tandem Computers Incorporated
SQL-LOAD Conversion
Program
The following is a sample SQL-LOAD COBOL85 conversion program listing. Data
Build creates this program to convert the sample input files when you use the SQL-
LOAD option in the Conversion Environment.
COBOL85 - T9257D20-(06 JUL 93) Default options: On (LIST,LMAP,SHOWCOPY,WARN) Off (CODE,ICODE,MAP)
Copyright Tandem Computers Incorporated 1986-1993
20 ?HEADING "Tandem Data Build T9515D20 01JUN93 - SQL-LOAD Version"
40 * Tandem Data Build - DATA CONVERSION FACILITY
60 * T9515D20 - 01JUN93 - D-series Operating System
80 * COPYRIGHT TANDEM COMPUTERS INCORPORATED 1992, 1993
100 ?SYMBOLS;INSPECT;SAVEABEND
120 ?SEARCH $DATA02.ZDATABLD.TALLIB,$SYSTEM.SYSTEM.COBOLLIB
140 ?CONSULT $SYSTEM.SYSTEM.COBOLEX0
160 ?SQL SQLMAP
180 IDENTIFICATION DIVISION.
200 PROGRAM-ID. CONVERT-DATA.
220 ENVIRONMENT DIVISION.
240 CONFIGURATION SECTION.
260 SOURCE-COMPUTER. TANDEM 16.
280 OBJECT-COMPUTER. TANDEM 16.
300 SPECIAL-NAMES.
320 * COPY U-SPECIAL-NAMES OF USERLIB.
320 <
340 FILE $S.#RUN IS LOG.
360 INPUT-OUTPUT SECTION.
380 FILE-CONTROL.
400 *
420 SELECT F-IN-DEMO01
440 RESERVE 2 AREAS
460 ASSIGN TO "=DATAIN01".
480 *
500 SELECT F-IN-DEMO02
520 RESERVE 2 AREAS
540 ASSIGN TO "=DATAIN02".
560 *
580 SELECT F-IN-DEMO03
600 RESERVE 2 AREAS
620 ASSIGN TO "=DATAIN03".
640 *
660 DATA DIVISION.
680 FILE SECTION.
700 *
720 FD F-IN-DEMO01
740 LABEL RECORDS ARE OMITTED.
760 *COPY IN-DEMO01 OF COBDEFS.
3 < * Record IN-DEMO01 version 1 updated on 08/09/93 at 15:48
4 < 01 IN-DEMO01.
5 < 02 DEMO01.
6 < 03 DEM1-STATE PIC X(2).
7 < 03 DEM1-ZIPCODE PIC X(6).
8 < 03 DEM1-PHONE PIC X(6).
9 < 03 DEM1-NAME PIC X(25).