Data Build Manual

SQL-LOAD Conversion Program
Sample Conversion Programs
B–22 099331 Tandem Computers Incorporated
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.
1340 EXEC SQL END DECLARE SECTION END-EXEC.
1360 *
1380 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
1400 ?SOURCE COBDEFS (OUT-DEMO03)
100 ?SECTION OUT-DEMO03,TANDEM
101 * Record OUT-DEMO03 version 1 updated on 08/09/93 at 15:49
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.
1420 EXEC SQL END DECLARE SECTION END-EXEC.
1440 *
1460 01 SQL-BUFF-WS-FLDS.
1480 05 SB-INDEX PIC S9(4) COMP VALUE 0.
1500 05 SB-BUFF-LEN PIC S9(9) COMP VALUE 0.
1520 05 SB-REPLY-CODE PIC S9(4) COMP VALUE 0.
1540 05 SB-RECV-FNUM PIC S9(4) COMP VALUE 0.
1560 05 SB-BLOCK-LEN PIC S9(9) COMP VALUE 0.
1580 05 SB-TRACE-FLAG PIC S9(4) COMP VALUE 0.
1600 05 SB-OUT-FNUM PIC S9(4) COMP VALUE 0.
1620 05 WK-BLOCK-LEN PIC S9(4) COMP VALUE 0.
1640 05 SB-MSGS-FNUM PIC S9(4) COMP VALUE 0.
1660 05 SB-MSGS-BUFF PIC X(60) VALUE SPACES.
1680 01 LOAD-REC.
1700 05 LOAD-RECLEN PIC S9(4) COMP.
1720 05 LOAD-RECX PIC X(4000).
1740 *
1760 01 LEN-DEMO01 PIC S9(4) COMP VALUE 0098.
1780 01 LEN-DEMO02 PIC S9(4) COMP VALUE 0078.
1800 01 LEN-DEMO03 PIC S9(4) COMP VALUE 0056.
1820 *