Data Build Manual

SQL-INSERT Conversion Program
Sample Conversion Programs
B–44 099331 Tandem Computers Incorporated
1820 05 N PIC S9(4) COMP VALUE 0.
1840 05 SUB1 PIC S9(4) COMP VALUE 0.
1860 05 SUB2 PIC S9(4) COMP VALUE 0.
1880 05 SUB3 PIC S9(4) COMP VALUE 0.
1900 05 SUB4 PIC S9(4) COMP VALUE 0.
1920 05 CTR-IN PIC S9(9) COMP VALUE 0.
1940 05 CTR-OUT PIC S9(9) COMP VALUE 0.
1960 05 CTR-OTHER PIC S9(9) COMP VALUE 0.
1980 05 CTR-ERROR PIC S9(9) COMP VALUE 0.
2000 05 CTR-CSV.
2020 10 CTR-CSVIN PIC S9(4) COMP VALUE 0.
2040 10 CTR-CSVOUT PIC S9(4) COMP VALUE 0.
2060 05 F-STAT PIC XX VALUE ZERO.
2080 05 REQ-CODE PIC X VALUE "1".
2100 05 SWT-RECV-OPEN PIC X VALUE SPACE.
2120 05 CONS-RESP PIC X VALUE SPACE.
2140 05 WK-FNAME PIC X(8) VALUE SPACES.
2160 01 SAVE-WK-STOR PIC X(100).
2180 01 SYSTEM-VERSION PIC X(5) VALUE "N 20 ".
2200 01 SYSTEM-SERIES PIC X VALUE "D".
2220 01 WK-NULLINDS.
2240 05 WK-NULLIND PIC S9(4) COMP OCCURS 500 TIMES.
2260 01 WK-DEFINE PIC X(40).
2280 01 WK-TIMESTAMP.
2300 05 WK-DATE.
2320 10 WK-YR PIC 9(4).
2340 10 FILLER PIC X.
2360 10 WK-MO PIC 99.
2380 10 FILLER PIC X.
2400 10 WK-DA PIC 99.
2420 05 FILLER PIC X.
2440 05 WK-TIME.
2460 10 WK-HR PIC 99.
2480 10 FILLER PIC X.
2500 10 WK-MN PIC 99.
2520 10 FILLER PIC X.
2540 10 WK-SC PIC 99.
2560 05 FILLER PIC X.
2580 05 WK-FRACTN1 PIC 999.
2600 05 WK-FRACTN2 PIC 999.
2620 01 W1-DATE-TIME.
2640 05 W1-DATE-TIME1 PIC 9(4) COMP.
2660 05 W1-DATE-TIME2 PIC 9(4) COMP.
2680 05 W1-DATE-TIME3 PIC 9(4) COMP.
2700 05 W1-DATE-TIME4 PIC 9(4) COMP.
2720 05 W1-DATE-TIME5 PIC 9(4) COMP.
2740 05 W1-DATE-TIME6 PIC 9(4) COMP.
2760 05 W1-DATE-TIME7 PIC 9(4) COMP.
2780 01 W2-DATE-TIME.
2800 05 W2-DATE-TIME1 PIC 99.
2820 05 W2-DATE-TIME2 PIC 99.
2840 05 W2-DATE-TIME3 PIC 99.
2860 05 W2-DATE-TIME4 PIC 99.
2880 05 W2-DATE-TIME5 PIC 99.
2900 05 W2-DATE-TIME6 PIC 99.
2920 05 W2-DATE-TIME7 PIC 99.