Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–3
44 < 03 DEM2-VENDOR PIC X(5).
45 < 03 DEM2-DATE1 PIC X(10).
46 < 03 DEM2-DATE2-I PIC X.
47 < 03 DEM2-DATE2 PIC X(10).
48 < 03 DEM2-DATE3 PIC X(10).
49 < 03 DEM2-TIME PIC X(8).
59 *
60 FD F-OUT-DEMO02
61 LABEL RECORDS ARE OMITTED.
62 *COPY OUT-DEMO02 OF COBDEFS.
51 < * Record OUT-DEMO02 created on 08/09/93 at 15:26
52 < 01 OUT-DEMO02.
53 < 02 DEMO02.
54 < 03 DEM2-IDNUMBER-X.
55 < 04 DEM2-IDNUMBER PIC S9(4) COMP.
56 < 03 DEM2-DESCR-X.
57 < 04 DEM2-DESCR PIC X(9).
58 < 03 FILLER PIC X(1).
59 < 03 DEM2-SUBNUMBER-X.
60 < 04 DEM2-SUBNUMBER PIC S9(4) COMP.
61 < 03 DEM2-CODE1-X.
62 < 04 DEM2-CODE1 PIC X(1).
63 < 03 DEM2-CLASS-X.
64 < 04 DEM2-CLASS PIC X(3).
65 < 03 DEM2-PRICE-X.
66 < 04 DEM2-PRICE PIC S9(9) COMP.
67 < 03 DEM2-COST1-X.
68 < 04 DEM2-COST1 PIC S9(9) COMP.
69 < 03 DEM2-CARRIER-X.
70 < 04 DEM2-CARRIER PIC X(9).
71 < 03 FILLER PIC X(1).
72 < 03 DEM2-COST2-X.
73 < 04 DEM2-COST2 PIC S9(9) COMP.
74 < 03 DEM2-VENDOR-X.
75 < 04 DEM2-VENDOR PIC X(5).
76 < 03 FILLER PIC X(1).
77 < 03 DEM2-DATE1-X.
78 < 04 DEM2-DATE1 PIC S9(18) COMP.
79 < 03 DEM2-DATE2-X.
80 < 04 DEM2-DATE2 PIC S9(18) COMP.
81 < 03 DEM2-DATE3-X.
82 < 04 DEM2-DATE3 PIC S9(18) COMP.
83 < 03 DEM2-TIME-X.
84 < 04 DEM2-TIME PIC S9(18) COMP.
63 *
64 FD F-IN-DEMO03
65 LABEL RECORDS ARE OMITTED.
66 *COPY IN-DEMO03 OF COBDEFS.
86 < * Record IN-DEMO03 created on 08/09/93 at 15:26
87 < 01 IN-DEMO03.
88 < 02 DEMO03.
89 < 03 DEM3-DATE PIC X(10).
90 < 03 DEM3-TIME PIC X(8).
91 < 03 DEM3-NUMBER PIC X(2).
92 < 03 DEM3-DESCR PIC X(9).
93 < 03 DEM3-TYPE PIC X(2).