Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
5–10 099331 Tandem Computers Incorporated
1 ?DICT
Audited dictionary created on subvol \D00.$DATA01.KOD2016.
Dictionary opened on subvol \D00.$DATA01.KOD2016 for update access.
2 ?COBOL COBDEFS !
Output source for COBOL is opened on \D00.$DATA01.KOD2016.COBDEFS
3 ?TAL TALDEFS !
Output source for TAL is opened on \D00.$DATA01.KOD2016.TALDEFS
4 ?FUP FUPDEFS !
Output source for FUP is opened on \D00.$DATA01.KOD2016.FUPDEFS
5 ?TALBOUND 0
6 ?NOTALCHECK
7 ?SOURCE $DATA01.KOD2016.DDLDEF01
1 ?SECTION IN-DEMO01 <-- Input Section
2 RECORD IN-DEMO01.
3 FILE IS $DATA01.KOD2016.DATAIN01 ENTRY-SEQUENCED. <-- Record
Definition
4 02 DEMO01.
5 07 DEM1-STATE PIC X(2) HEADING "CHAR".
6 07 DEM1-ZIPCODE PIC X(6) HEADING "CHAR".
7 07 DEM1-PHONE PIC X(06) HEADING "PTOB".
8 07 DEM1-NAME PIC X(25) HEADING "CHAR".
9 07 DEM1-ADDRESS PIC X(25) HEADING "CHAR".
10 07 DEM1-CITY PIC X(18) HEADING "CHAR".
11 07 DEM1-CODE PIC X(14) HEADING "CHAR".
12 END
Record IN-DEMO01 size is 96 bytes.
Record IN-DEMO01 added to dictionary.
FUP output produced for IN-DEMO01.
TAL output produced for IN-DEMO01.
COBOL output produced for IN-DEMO01.
13 ?SECTION OUT-DEMO01 <-- Output
Section
14 RECORD OUT-DEMO01.
15 FILE IS $DATA01.KOD2016.DATAOT01 ENTRY-SEQUENCED.
16 02 DEMO01.
17 06 DEM1-STATE-X.
18 07 DEM1-STATE PIC X(2).
19 06 DEM1-ZIPCODE-X.
20 07 DEM1-ZIPCODE PIC X(6).
21 06 DEM1-PHONE-X.
22 07 DEM1-PHONE PIC S9(10) COMP. <-- Input is
COMP-3
23 06 DEM1-NAME-X.
24 07 DEM1-NAME PIC X(25).
25 06 DEM1-ADDRESS-X.
26 07 DEM1-ADDRESS PIC X(25).