Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–21
1200 *
1220 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1240 ?SOURCE COBDEFS (OUT-DEMO01)
13 ?SECTION OUT-DEMO01,TANDEM
14 * Record OUT-DEMO01 version 1 updated on 08/09/93 at 15:49
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).
1260 EXEC SQL END DECLARE SECTION END-EXEC.
1280 *
1300 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1320 ?SOURCE COBDEFS (OUT-DEMO02)
50 ?SECTION OUT-DEMO02,TANDEM
51 * Record OUT-DEMO02 version 1 updated on 08/09/93 at 15:49
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.