Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
SMartin_accela_com Regular Contributor.
Regular Contributor.
206 views

convert multile record format vision file to oracle table using xfds

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 

0 Likes
1 Reply
Micro Focus Expert
Micro Focus Expert

Re: convert multile record format vision file to oracle table using xfds

Try using alfred on the file with your xfd, see if all of the data shows in alfred.

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.