Data Build Manual

Sample Data Conversion to Enscribe
Running the Sample Programs
5–12 099331 Tandem Computers Incorporated
31 06 DEM2-CODE1-X.
32 07 DEM2-CODE1 PIC X(1).
33 06 DEM2-CLASS-X.
34 07 DEM2-CLASS PIC X(3).
35 06 DEM2-PRICE-X.
36 07 DEM2-PRICE PIC S9(9) COMP.
37 06 DEM2-COST1-X.
38 07 DEM2-COST1 PIC S9(9) COMP.
39 06 DEM2-CARRIER-X.
40 07 DEM2-CARRIER PIC X(9).
41 06 DEM2-COST2-X.
42 07 DEM2-COST2 PIC S9(9) COMP.
43 06 DEM2-VENDOR-X.
44 07 DEM2-VENDOR PIC X(5).
45 06 DEM2-DATE1-X.
46 07 DEM2-DATE1 PIC S9(18) COMP.
47 06 DEM2-DATE2-X.
48 07 DEM2-DATE2 PIC S9(18) COMP NULL 0.
49 06 DEM2-DATE3-X.
50 07 DEM2-DATE3 PIC S9(18) COMP.
51 06 DEM2-TIME-X.
52 07 DEM2-TIME PIC S9(18) COMP.
53 END
SYSTEM \D00
DATE - TIME : 8/09/93 15:25:48
Filler emitted at level 6 after DEM2-DESCR
Filler emitted at level 6 after DEM2-CARRIER
Filler emitted at level 6 after DEM2-VENDOR
Record OUT-DEMO02 size is 78 bytes.
Record OUT-DEMO02 added to dictionary.
FUP output produced for OUT-DEMO02.
TAL output produced for OUT-DEMO02.
COBOL output produced for OUT-DEMO02.
...
...
Objects: Added Replaced Deleted
Records 6 0 0
Dictionary on subvol \D00.$DATA01.KOD2016 is closed.
Output source for FUP is closed.
Output source for TAL is closed.
Output source for COBOL is closed.
Errors detected: 0
Warnings detected: 0