File Layout for RC documents

01  RC-REC-DELIMIT.
           05  RC-BAT-DATA.
               10  BAT-TYPE                       PIC X(04).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  BAT-ORG1                       PIC X(03).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  BAT-NUMBER                     PIC X(06).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  DOC-TYPE                       PIC X(04).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  DOC-ORG1                       PIC X(03).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  DOC-NUMBER                     PIC X(11).
               10  FILLER                         PIC X(01) VALUE '|'.
           05  RC-HDR-DATA.
               10  TRANS-CODE                     PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  TRANS-NUMBER-AGENCY            PIC X(03).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  TRANS-NUMBER-NUMBER            PIC X(11).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  RECORD-MONTH                   PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  RECORD-DAY                     PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  RECORD-YEAR                    PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  REF-TRANS-CODE                 PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  REF-TRANS-NUM-AGENCY           PIC X(03).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  REF-TRANS-NUM-NUMBER           PIC X(11).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  DOCUMENT-ACTION                PIC X(1).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  VENDOR-NUMBER                  PIC X(10).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  VENDOR-ADDR-IND                PIC X(1).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  VENDOR-NAME                    PIC X(30).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  VENDOR-ADDR1                   PIC X(30).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  VENDOR-ADDR2                   PIC X(30).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  CITY                           PIC X(18).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  STATE                          PIC X(2).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  ZIP-CODE                       PIC X(10).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  RECEIVED-BY                    PIC X(20).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  CARRIER-CODE                   PIC X(3).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  CARRIER-NAME                   PIC X(25).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  CARRIER-NUM                    PIC X(14).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  CLEAR-ALL                      PIC X(1).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  COMMENTS                       PIC X(12).
               10  FILLER                         PIC X(01) VALUE '|'.
           05  RC-LN-DATA.
               10  RC-DOCD.
                   20  LINE-NUM                   PIC X(3).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  REF-TRANS-COMM-LINE        PIC X(3).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  QUANTITY-ORDERED           PIC X(12).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  UNIT-OF-MEASURE            PIC X(4).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  COMMODITY-CODE             PIC X(14).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  CATALOG-PART-NUM           PIC X(11).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  DESCRIPTION                PIC X(30).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  QUANTITY-DELIVERED         PIC X(12).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  QUANT-INC-DEC-IND          PIC X(1).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  CONDITION                  PIC X(3).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  PARTIAL-FINAL-FLAG         PIC X(1).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  TEXT-FLAG                  PIC X(1).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  ITEM-CODE                  PIC X(3).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  MSDS-IND                   PIC X(1).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  MANUFACTURERS-NAME         PIC X(30).
                   20  FILLER                     PIC X(01) VALUE '|'.
                   20  MANUFACTURERS-NUM          PIC X(20).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  RC-STATUS                      PIC X(05).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  LAST-USER                      PIC X(08).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  APPROVALS                      PIC X(05).
               10  FILLER                         PIC X(01) VALUE '|'.
               10  LAST-DATE                      PIC X(08).