Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–43
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.
81 03 DEM2-DATE3-X.
82 04 DEM2-DATE3 PIC S9(18) COMP.
83 03 DEM2-TIME-X.
84 04 DEM2-TIME PIC S9(18) COMP.
1480 EXEC SQL END DECLARE SECTION END-EXEC.
1500 *
1520 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1540 ?SOURCE COBDEFS (OUT-DEMO03)
100 ?SECTION OUT-DEMO03,TANDEM
101 * Record OUT-DEMO03 version 2 updated on 08/09/93 at 19:11
102 01 OUT-DEMO03.
103 02 DEMO03.
104 03 DEM3-DATE-X.
105 04 DEM3-DATE PIC S9(18) COMP.
106 03 DEM3-TIME-X.
107 04 DEM3-TIME PIC S9(18) COMP.
108 03 DEM3-NUMBER-X.
109 04 DEM3-NUMBER PIC S9(4) COMP.
110 03 DEM3-DESCR-X.
111 04 DEM3-DESCR PIC X(9).
112 03 FILLER PIC X(1).
113 03 DEM3-TYPE-X.
114 04 DEM3-TYPE PIC S9(4) COMP.
115 03 DEM3-VENDORID-X.
116 04 DEM3-VENDORID PIC S9(9) COMP.
117 03 DEM3-WHLSLRID-X.
118 04 DEM3-WHLSLRID PIC S9(9) COMP.
119 03 DEM3-PARTNO-X.
120 04 DEM3-PARTNO PIC S9(9) COMP.
121 03 DEM3-PRICE-X.
122 04 DEM3-PRICE PIC S9(8)V9(2) COMP.
123 03 DEM3-CODE-X.
124 04 DEM3-CODE PIC X(2).
125 03 DEM3-COST-X.
126 04 DEM3-COST PIC S9(9) COMP.
1560 EXEC SQL END DECLARE SECTION END-EXEC.
1580 *
1600 01 SQL-BUFF-WS-FLDS.
1620 05 SB-MSGS-FNUM PIC S9(4) COMP VALUE 0.
1640 05 SB-MSGS-BUFFS.
1660 10 SB-MSGS-BUFF PIC X(60) VALUE SPACES.
1680 10 SB-MSGS-BUFF1 PIC X(60) VALUE SPACES.
1700 05 SB-ALLOW-ERRORS PIC S9(9) COMP VALUE 12345.
1720 *
1740 01 WK-STOR.
1760 05 EOB PIC S9(4) COMP VALUE 0.
1780 05 EOF PIC S9(4) COMP VALUE 0.
1800 05 ERR PIC S9(4) COMP VALUE 0.