Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
099331 Tandem Computers Incorporated 5-11
27 06 DEM1-CITY-X.
28 07 DEM1-CITY PIC X(18).
29 06 DEM1-CODE-X.
30 07 DEM1-CODE PIC X(14).
31 END
Record OUT-DEMO01 size is 98 bytes.
Record OUT-DEMO01 added to dictionary.
FUP output produced for OUT-DEMO01.
TAL output produced for OUT-DEMO01.
COBOL output produced for OUT-DEMO01.
8 ?SOURCE $DATA01.KOD2016.DDLDEF02
1 ?SECTION IN-DEMO02
2 RECORD IN-DEMO02.
3 FILE IS $DATA01.KOD2016.DATAIN02 ENTRY-SEQUENCED.
4 02 DEMO02.
5 07 DEM2-IDNUMBER PIC X(02) HEADING "COMP".
6 07 DEM2-DESCR PIC X(9) HEADING "CHAR".
7 07 DEM2-SUBNUMBER PIC X(02) HEADING "COMP".
8 07 DEM2-CODE1 PIC X(1) HEADING "CHAR".
9 07 DEM2-CLASS PIC X(3) HEADING "CHAR".
10 07 DEM2-PRICE PIC X(04) HEADING "COMP".
11 07 DEM2-COST1 PIC X(04) HEADING "COMP".
12 07 DEM2-CARRIER PIC X(9) HEADING "CHAR".
13 07 DEM2-COST2 PIC X(04) HEADING "COMP".
14 07 DEM2-VENDOR PIC X(5) HEADING "CHAR".
15 07 DEM2-DATE1 PIC X(10) HEADING "CHARDATE".
16 07 DEM2-DATE2-I PIC X HEADING "CHARNULLIND".
17 07 DEM2-DATE2 PIC X(10) HEADING
"CHARDATENULLS".
18 07 DEM2-DATE3 PIC X(10) HEADING "CHARDATE".
19 07 DEM2-TIME PIC X(8) HEADING "CHARTIME".
20 END
Record IN-DEMO02 size is 82 bytes.
Record IN-DEMO02 added to dictionary.
FUP output produced for IN-DEMO02.
TAL output produced for IN-DEMO02.
COBOL output produced for IN-DEMO02.
21 ?SECTION OUT-DEMO02
22 RECORD OUT-DEMO02.
23 FILE IS $DATA01.KOD2016.DATAOT02 ENTRY-SEQUENCED.
24 02 DEMO02.
25 06 DEM2-IDNUMBER-X.
26 07 DEM2-IDNUMBER PIC S9(4) COMP.
27 06 DEM2-DESCR-X.
28 07 DEM2-DESCR PIC X(9).
29 06 DEM2-SUBNUMBER-X.
30 07 DEM2-SUBNUMBER PIC S9(4) COMP.