I have a multiple 01 file format to convert to oracle table
Not getting an error, however, all the data on the table is null except for the key
When processing in the debugger the values of data are displayed in the record fields
*(( XFD FILE=PRGENLP3 ))
FD OUTFILE30
LABEL RECORDS ARE STANDARD.
*(( XFD WHEN PRGEN3-TLOCAL = "M" ))
01 PRGEN3-LOCAL-RECORD.
05 PRGEN3-KEY-LOCAL.
10 PRGEN3-TLOCAL PIC X(01).
10 PRGEN3-LOCAL-NO PIC X(02).
10 PRGEN3-SORM-LOCAL PIC X(01).
10 PRGEN3-CYCLE-LOCAL PIC X(01).
05 PRGEN3-FLAT-DED-LOCAL PIC S9(05)V9(02).
05 PRGEN3-EXPT-DEDS-LOCAL PIC S9(04)V9(02).
05 PRGEN3-LEVEL-LOCAL.
10 PRGEN3-LOCAL-AMT-1 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-1 PIC SV9(06).
10 PRGEN3-LOCAL-DED-1 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-2 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-2 PIC SV9(06).
10 PRGEN3-LOCAL-DED-2 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-3 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-3 PIC SV9(06).
10 PRGEN3-LOCAL-DED-3 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-4 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-4 PIC SV9(06).
10 PRGEN3-LOCAL-DED-4 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-5 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-5 PIC SV9(06).
10 PRGEN3-LOCAL-DED-5 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-6 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-6 PIC SV9(06).
10 PRGEN3-LOCAL-DED-6 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-7 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-7 PIC SV9(06).
10 PRGEN3-LOCAL-DED-7 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-8 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-8 PIC SV9(06).
10 PRGEN3-LOCAL-DED-8 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-9 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-9 PIC SV9(06).
10 PRGEN3-LOCAL-DED-9 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-10 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-10 PIC SV9(06).
10 PRGEN3-LOCAL-DED-10 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-11 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-11 PIC SV9(06).
10 PRGEN3-LOCAL-DED-11 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-12 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-12 PIC SV9(06).
10 PRGEN3-LOCAL-DED-12 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-13 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-13 PIC SV9(06).
10 PRGEN3-LOCAL-DED-13 PIC S9(05)V9(02).
10 PRGEN3-LOCAL-AMT-14 PIC S9(06)V9(02).
10 PRGEN3-LOCAL-TAX-14 PIC SV9(06).
10 PRGEN3-LOCAL-DED-14 PIC S9(05)V9(02).
05 PRGEN3-LOCAL-LEVELS REDEFINES PRGEN3-LEVEL-LOCAL.
10 LEVELS-LOCAL OCCURS 14 TIMES.
15 PRGEN3-LOCAL-AMT PIC S9(06)V9(02).
15 PRGEN3-LOCAL-TAX PIC SV9(06).
15 PRGEN3-LOCAL-DED PIC S9(05)V9(02).
05 DEDUCTION-ALLOWANCE-LOCAL.
10 PRGEN3-LOW-RANGE-LOCAL PIC S9(04)V9(02).
10 PRGEN3-LOW-AMT-LOCAL PIC S9(04)V9(02).
10 PRGEN3-HIGH-RANGE-LOCAL PIC S9(04)V9(02).
10 PRGEN3-HIGH-AMT-LOCAL PIC S9(04)V9(02).
05 PRGEN3-DED-PER-LOCAL PIC V9(02).
05 PRGEN3-LOCAL-GL.
10 PRGEN3-LOCAL-FUND PIC X(03).
10 PRGEN3-LOCAL-DEPT PIC 9(04).
10 PRGEN3-LOCAL-ITEM PIC 9(04).
10 PRGEN3-LOCAL-PROJ PIC 9(04).
10 PRGEN3-LOCAL-LOC PIC 9(04).
05 PRGEN3-LOCAL-VEND-NO PIC X(06).
05 PRGEN3-LOCAL-CHECK-ID PIC 9(03).
05 PRGEN3-LOCAL-CHECK-ID-ALPHA REDEFINES
PRGEN3-LOCAL-CHECK-ID PIC X(03).
05 PRGEN3-LOCAL-2ND-CHECK-PCT PIC S9(03)V999.
05 PRGEN3-LOCAL-1ST-CHECK-PCT PIC S9(03)V999.
05 FILLER PIC X(04).
* 05 FILLER PIC X(10).
05 PRGEN3-MULTIPLE-CITIES.
10 PRGEN3-LOCAL-1 PIC 9(02).
10 PRGEN3-LOCAL-PCT-1 PIC S9(02)V9999.
10 PRGEN3-LOCAL-2 PIC 9(02).
10 PRGEN3-LOCAL-PCT-2 PIC S9(02)V9999.
10 PRGEN3-LOCAL-3 PIC 9(02).
10 PRGEN3-LOCAL-PCT-3 PIC S9(02)V9999.
10 PRGEN3-LOCAL-4 PIC 9(02).
10 PRGEN3-LOCAL-PCT-4 PIC S9(02)V9999.
05 PRGEN3-LOCAL-WHS REDEFINES PRGEN3-MULTIPLE-CITIES.
10 PRGEN3-MULT-CITIES OCCURS 4 TIMES.
15 PRGEN3-LOCAL-WH PIC 9(02).
15 PRGEN3-LOCAL-PCT-WH PIC S9(02)V9999.
05 PRGEN3-LOCAL-NAME1 PIC X(25).
05 PRGEN3-LOCAL-MAX-WAGE PIC S9(06)V99.
*>LOCAL TAXABLE FLAG VALUES ARE "N" - LOOK AT LOCAL INFO
*> "S" - LOOK AT STATE INFO
*> "F" - LOOK AT FEDERAL INFO
*> "C" - LOOK AT FICA INFO
*> "M" - LOOK AT MEDC INFO
*> "U" - LOOK AT SUI INFO
05 PRGEN3-LOCAL-TAXABLE-FLAG PIC X(01).
05 PRGEN3-LOCAL-MIN-WAGE PIC S9(05)V9(02).
05 PRGEN3-LOCAL-PORY PIC X(01).
05 PRGEN3-LOCAL-COUNTY PIC 9(02).
05 PRGEN3-LOCAL-SCHOOL-TAX PIC X(01).
05 PRGEN3-LOCAL-SCHOOL-DISTRICT PIC 9(04).
05 FILLER PIC X(94).
****************************************************************
* RECORD # 11 IS FOR STATE TAX INCOME LEVEL INFORMATION *
* KEY IS AS FOLLOWS: *
* PRGEN3-INC-LEVEL = "I" *
* PRGEN3-INC-ST-NO = STATE NUMBER ENTERED BY USER *
* PRGEN3-INC-CYCLE-ST = 1 (WEEKLY) 2 (BIWEEKLY)*
* 3 (SEMI-MONTHLY) 4 (MONTHLY) *
****************************************************************
*(( XFD WHEN PRGEN3-TLOCAL = "I" ))
01 PRGEN3-INC-LEVEL-RECORD.
05 PRGEN3-INC-KEY.
10 PRGEN3-INC-LEVEL PIC X(01).
10 PRGEN3-INC-ST-NO PIC X(02).
10 PRGEN3-INC-CYCLE-ST PIC X(01).
10 FILLER PIC X(01).
05 PRGEN3-INCOME-LEVELS.
10 PRGEN3-INC-AMT-1 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-1 PIC SV9(05).
10 PRGEN3-INC-DED-1 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-2 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-2 PIC SV9(05).
10 PRGEN3-INC-DED-2 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-3 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-3 PIC SV9(05).
10 PRGEN3-INC-DED-3 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-4 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-4 PIC SV9(05).
10 PRGEN3-INC-DED-4 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-5 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-5 PIC SV9(05).
10 PRGEN3-INC-DED-5 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-6 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-6 PIC SV9(05).
10 PRGEN3-INC-DED-6 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-7 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-7 PIC SV9(05).
10 PRGEN3-INC-DED-7 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-8 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-8 PIC SV9(05).
10 PRGEN3-INC-DED-8 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-9 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-9 PIC SV9(05).
10 PRGEN3-INC-DED-9 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-10 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-10 PIC SV9(05).
10 PRGEN3-INC-DED-10 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-11 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-11 PIC SV9(05).
10 PRGEN3-INC-DED-11 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-12 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-12 PIC SV9(05).
10 PRGEN3-INC-DED-12 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-13 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-13 PIC SV9(05).
10 PRGEN3-INC-DED-13 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-14 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-14 PIC SV9(05).
10 PRGEN3-INC-DED-14 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-15 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-15 PIC SV9(05).
10 PRGEN3-INC-DED-15 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-16 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-16 PIC SV9(05).
10 PRGEN3-INC-DED-16 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-17 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-17 PIC SV9(05).
10 PRGEN3-INC-DED-17 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-18 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-18 PIC SV9(05).
10 PRGEN3-INC-DED-18 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-19 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-19 PIC SV9(05).
10 PRGEN3-INC-DED-19 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-20 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-20 PIC SV9(05).
10 PRGEN3-INC-DED-20 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-21 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-21 PIC SV9(05).
10 PRGEN3-INC-DED-21 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-22 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-22 PIC SV9(05).
10 PRGEN3-INC-DED-22 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-23 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-23 PIC SV9(05).
10 PRGEN3-INC-DED-23 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-24 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-24 PIC SV9(05).
10 PRGEN3-INC-DED-24 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-25 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-25 PIC SV9(05).
10 PRGEN3-INC-DED-25 PIC S9(05)V9(02).
10 PRGEN3-INC-AMT-26 PIC S9(06)V9(02).
10 PRGEN3-INC-TAX-26 PIC SV9(05).
10 PRGEN3-INC-DED-26 PIC S9(05)V9(02).
05 PRGEN3-STATE-INC-LEVELS REDEFINES PRGEN3-INCOME-LEVELS.
10 PRGEN3-LEVELS OCCURS 26 TIMES.
15 PRGEN3-INC-AMT PIC S9(06)V9(02).
15 PRGEN3-INC-TAX PIC SV9(05).
15 PRGEN3-INC-DED PIC S9(05)V9(02).
05 FILLER PIC X(89).
400-FILE-30.
OPEN I-O INFILE30.
IF IN-FILE30-STATUS NOT = "00"
DISPLAY "ERROR - INFILE30 STATUS IS : " IN-FILE30-STATUS
END-IF.
OPEN OUTPUT OUTFILE30.
IF OUT-FILE30-STATUS NOT = "00"
DISPLAY "ERROR - OUTFILE30 STATUS IS : " OUT-FILE30-STATUS
END-IF.
* Prime the read
read INFILE30 NEXT
perform until in-file30-status <> "00"
move corresponding PRGEN3-LOCAL-RECORD of INFILE30
to PRGEN3-LOCAL-RECORD OF OUTFILE30
write PRGEN3-LOCAL-RECORD OF OUTFILE30
read INFILE30 NEXT
at end move "10" to in-file30-status
end-read
end-perform
close INFILE30
close OUTFILE30.
400-EXIT.
EXIT.Thanks for any input
