Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–19
10 < 03 DEM1-ADDRESS PIC X(25).
11 < 03 DEM1-CITY PIC X(18).
12 < 03 DEM1-CODE PIC X(14).
780 *
800 FD F-IN-DEMO02
820 LABEL RECORDS ARE OMITTED.
840 *COPY IN-DEMO02 OF COBDEFS.
32 < * Record IN-DEMO02 version 1 updated on 08/09/93 at 15:49
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).
860 *
880 FD F-IN-DEMO03
900 LABEL RECORDS ARE OMITTED.
920 *COPY IN-DEMO03 OF COBDEFS.
86 < * Record IN-DEMO03 version 1 updated on 08/09/93 at 15:49
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).
940 *
960 WORKING-STORAGE SECTION.
980 *
1000 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1020 * SQL-NULLINDS
1040 ?NOLIST
1100 EXEC SQL END DECLARE SECTION END-EXEC.
1120 *
1140 EXEC SQL INCLUDE SQLCA END-EXEC.
1 01 SQLCA.
2 02 EYE-CATCHER PIC X(2) VALUE "CA".
3 02 VERSION PIC S9(4) COMP VALUE 0.
4 02 NUM-ERR-ENTRIES PIC S9(4) COMP VALUE 7.