Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–39
SQL-INSERT
Conversion Program
The following is a sample SQL-INSERT COBOL85 conversion program listing. Data
Build creates this program to convert the sample input files when you use the SQL-
INSERT 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-INSERT 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 SELECT F-SQLMSGS
680 ASSIGN TO "=SQLMSGS".
700 *
720 DATA DIVISION.
740 FILE SECTION.
760 *
780 FD F-IN-DEMO01
800 LABEL RECORDS ARE OMITTED.
820 *COPY IN-DEMO01 OF COBDEFS.
3 < * Record IN-DEMO01 version 2 updated on 08/09/93 at 19:11
4 < 01 IN-DEMO01.
5 < 02 DEMO01.