Data Build Manual

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