Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–4 099331 Tandem Computers Incorporated
94 < 03 DEM3-VENDORID PIC X(4).
95 < 03 DEM3-WHLSLRID PIC X(4).
96 < 03 DEM3-PARTNO PIC X(4).
97 < 03 DEM3-PRICE PIC X(6).
98 < 03 DEM3-CODE PIC X(2).
99 < 03 DEM3-COST PIC X(4).
67 *
68 FD F-OUT-DEMO03
69 LABEL RECORDS ARE OMITTED.
70 *COPY OUT-DEMO03 OF COBDEFS.
101 < * Record OUT-DEMO03 created on 08/09/93 at 15:26
102 < 01 OUT-DEMO03.
103 < 02 DEMO03.
104 < 03 DEM3-DATE-X.
105 < 04 DEM3-DATE PIC S9(18) COMP.
106 < 03 DEM3-TIME-X.
107 < 04 DEM3-TIME PIC S9(18) COMP.
108 < 03 DEM3-NUMBER-X.
109 < 04 DEM3-NUMBER PIC S9(4) COMP.
110 < 03 DEM3-DESCR-X.
111 < 04 DEM3-DESCR PIC X(9).
112 < 03 FILLER PIC X(1).
113 < 03 DEM3-TYPE-X.
114 < 04 DEM3-TYPE PIC S9(4) COMP.
115 < 03 DEM3-VENDORID-X.
116 < 04 DEM3-VENDORID PIC S9(9) COMP.
117 < 03 DEM3-WHLSLRID-X.
118 < 04 DEM3-WHLSLRID PIC S9(9) COMP.
119 < 03 DEM3-PARTNO-X.
120 < 04 DEM3-PARTNO PIC S9(9) COMP.
121 < 03 DEM3-PRICE-X.
122 < 04 DEM3-PRICE PIC S9(8)V9(2) COMP.
123 < 03 DEM3-CODE-X.
124 < 04 DEM3-CODE PIC X(2).
125 < 03 DEM3-COST-X.
126 < 04 DEM3-COST PIC S9(9) COMP.
71 *
72 WORKING-STORAGE SECTION.
73 01 WK-STOR.
74 05 EOB PIC S9(4) COMP VALUE 0.
75 05 EOF PIC S9(4) COMP VALUE 0.
76 05 ERR PIC S9(4) COMP VALUE 0.
77 05 N PIC S9(4) COMP VALUE 0.
78 05 SUB1 PIC S9(4) COMP VALUE 0.
79 05 SUB2 PIC S9(4) COMP VALUE 0.
80 05 SUB3 PIC S9(4) COMP VALUE 0.
81 05 SUB4 PIC S9(4) COMP VALUE 0.
82 05 CTR-IN PIC S9(9) COMP VALUE 0.
83 05 CTR-OUT PIC S9(9) COMP VALUE 0.
84 05 CTR-OTHER PIC S9(9) COMP VALUE 0.
85 05 CTR-ERROR PIC S9(9) COMP VALUE 0.
86 05 CTR-CSV.
87 10 CTR-CSVIN PIC S9(4) COMP VALUE 0.
88 10 CTR-CSVOUT PIC S9(4) COMP VALUE 0.
89 05 F-STAT PIC XX VALUE ZERO.
90 05 REQ-CODE PIC X VALUE "1".