Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–40 099331 Tandem Computers Incorporated
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).
840 *
860 FD F-IN-DEMO02
880 LABEL RECORDS ARE OMITTED.
900 *COPY IN-DEMO02 OF COBDEFS.
32 < * Record IN-DEMO02 version 2 updated on 08/09/93 at 19:11
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).
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).
920 *
940 FD F-IN-DEMO03
960 LABEL RECORDS ARE OMITTED.
980 *COPY IN-DEMO03 OF COBDEFS.
86 < * Record IN-DEMO03 version 2 updated on 08/09/93 at 19:11
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).
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).
1000 *
1020 FD F-SQLMSGS
1040 LABEL RECORDS ARE OMITTED.
1060 01 F-SQLMSGS-REC PIC X(79).
1080 *
1100 WORKING-STORAGE SECTION.
1120 *
1140 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1160 * SQL-NULLINDS