Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–42 099331 Tandem Computers Incorporated
22 03 SQL-STATEMENT-TYPE PIC 9(4) COMP.
23 88 SQL-STATEMENT-SELECT VALUE 1.
24 88 SQL-STATEMENT-INSERT VALUE 2.
25 88 SQL-STATEMENT-UPDATE VALUE 3.
26 88 SQL-STATEMENT-DELETE VALUE 4.
27 88 SQL-STATEMENT-DDL VALUE 5.
28 88 SQL-STATEMENT-CONTROL VALUE 6.
29 88 SQL-STATEMENT-DCL VALUE 7.
1340 *
1360 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1380 ?SOURCE COBDEFS (OUT-DEMO01)
13 ?SECTION OUT-DEMO01,TANDEM
14 * Record OUT-DEMO01 version 2 updated on 08/09/93 at 19:11
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).
1400 EXEC SQL END DECLARE SECTION END-EXEC.
1420 *
1440 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1460 ?SOURCE COBDEFS (OUT-DEMO02)
50 ?SECTION OUT-DEMO02,TANDEM
51 * Record OUT-DEMO02 version 2 updated on 08/09/93 at 19:11
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.