Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
B–2 099331 Tandem Computers Incorporated
42 RESERVE 2 AREAS
43 ASSIGN TO "=DATAOT03".
44 *
45 DATA DIVISION.
46 FILE SECTION.
47 *
48 FD F-IN-DEMO01
49 LABEL RECORDS ARE OMITTED.
50 *COPY IN-DEMO01 OF COBDEFS.
3 < * Record IN-DEMO01 created on 08/09/93 at 15:25
4 < 01 IN-DEMO01.
5 < 02 DEMO01.
6 < 03 DEM1-STATE PIC X(2).
7 < 03 DEM1-ZIPCODE PIC X(6).
8 < 03 DEM1-PHONE PIC X(6).
9 < 03 DEM1-NAME PIC X(25).
10 < 03 DEM1-ADDRESS PIC X(25).
11 < 03 DEM1-CITY PIC X(18).
12 < 03 DEM1-CODE PIC X(14).
51 *
52 FD F-OUT-DEMO01
53 LABEL RECORDS ARE OMITTED.
54 *COPY OUT-DEMO01 OF COBDEFS.
14 < * Record OUT-DEMO01 created on 08/09/93 at 15:26
15 < 01 OUT-DEMO01.
16 < 02 DEMO01.
17 < 03 DEM1-STATE-X.
18 < 04 DEM1-STATE PIC X(2).
19 < 03 DEM1-ZIPCODE-X.
20 < 04 DEM1-ZIPCODE PIC X(6).
21 < 03 DEM1-PHONE-X.
22 < 04 DEM1-PHONE PIC S9(10) COMP.
23 < 03 DEM1-NAME-X.
24 < 04 DEM1-NAME PIC X(25).
25 < 03 DEM1-ADDRESS-X.
26 < 04 DEM1-ADDRESS PIC X(25).
27 < 03 DEM1-CITY-X.
28 < 04 DEM1-CITY PIC X(18).
29 < 03 DEM1-CODE-X.
30 < 04 DEM1-CODE PIC X(14).
55 *
56 FD F-IN-DEMO02
57 LABEL RECORDS ARE OMITTED.
58 *COPY IN-DEMO02 OF COBDEFS.
32 < * Record IN-DEMO02 created on 08/09/93 at 15:26
33 < 01 IN-DEMO02.
34 < 02 DEMO02.
35 < 03 DEM2-IDNUMBER PIC X(2).
36 < 03 DEM2-DESCR PIC X(9).
37 < 03 DEM2-SUBNUMBER PIC X(2).
38 < 03 DEM2-CODE1 PIC X(1).
39 < 03 DEM2-CLASS PIC X(3).
40 < 03 DEM2-PRICE PIC X(4).
41 < 03 DEM2-COST1 PIC X(4).
42 < 03 DEM2-CARRIER PIC X(9).
43 < 03 DEM2-COST2 PIC X(4).