03 OPEN-PC-ACCT-L-TABLE               REDEFINES MTIOAREA.
            05  DOCH-IOAREA.
                 10  OPPL-KEY-HEADER-FIELDS.
                  15  VENDOR-NUMBER                   PIC X(10).
                  15  TRANS-CODE                      PIC X(02).      
                  15  PO-NUMBER.
                      20  PO-NUMBER-AGENCY            PIC X(03).
                      20  PO-NUMBER-NUMBER            PIC X(11).
            05  DOCD-IOAREA.
                  15  OPEN-PC-ACCT-L-DETAIL.
                   20  OPPL-KEY-LINE-FIELDS.
                    25  LINE-NO                       PIC X(02).
                   20  OPPL-RESULT-FIELDS.     
                    25  FUND                          PIC X(04).
                    25  AGENCY                        PIC X(03).
                    25  XORGANIZATION                 PIC X(04).
                    25  SUB-ORG                       PIC X(02).
                    25  ACTIVITY                      PIC X(04).
                    25  OBJECT                        PIC X(04).
                    25  SUB-OBJECT                    PIC X(02).
                    25  JOB-NUMBER                    PIC X(08).
                    25  REPORTING-CATEGORY            PIC X(04).
                    25  PO-LINE-AMOUNT                PIC S9(12)V99..
                    25  PO-LINE-CLD-AMT               PIC S9(12)V99.
                    25  PO-LINE-EXP-AMT               PIC S9(12)V99.
                    25  LAST-REF-TRANS-NO.
                     30  REF-RQ-TRANS-CODE            PIC X(02).
                      30  REF-RQ-TRANS-NUM.
                       35  REF-RQ-TRANS-NUM-AGY       PIC X(03).
                       35  REF-RQ-TRANS-NUM-NUM       PIC X(11).
                    25  LAST-REF-TRANS-DATE.
                     30  LAST-REF-TRANS-YEAR.
                         35  LAST-REF-TRANS-CC        PIC X(02).
                         35  LAST-REF-TRANS-YY        PIC X(02).
                     30  LAST-REF-TRANS-MONTH         PIC X(02).
                     30  LAST-REF-TRANS-DAY           PIC X(02).
                    25  REF-RQ-TRANS-LINE             PIC X(02).
                    25  PO-RECEIVED-AMT               PIC S9(12)V99.
                    25  PROJECT-DATA                  PIC X(08).
                    25  XFUNCTION                     PIC X(04).
                    25  BS-ACCOUNT                    PIC X(04).
                    25  ALT-VIEW-BYTE                 PIC X(01).     
                  15  APPR-UNIT                       PIC X(09).
                  15  LAST-FORW-REF-TRANS-11.
                   20  LAST-FORW-REF-TR-CD            PIC X(02).
                   20  LAST-FORW-REF-TR-NUM-11.
                    25  LAST-FORW-REF-TR-AG           PIC X(03).
                    25  LAST-FORW-REF-TR-NO-11        PIC X(11).
                  15  LAST-FORW-REF-ACT-LN            PIC X(02).
                  15  LAST-REF-TR-DATE.    
                   20  LAST-REF-TR-YEAR.
                       25  LAST-REF-TR-YEAR-CC        PIC X(02).
                       25  LAST-REF-TR-YEAR-YY        PIC X(02).
                   20  LAST-REF-TR-MONTH              PIC X(02).
                   20  LAST-REF-TR-DAY                PIC X(02).
                  15  PRE-TAX-AMT                     PIC S9(14).
                  15  CLOSED-PRE-TAX-AMT              PIC S9(14).
                 10  OPPL-INFERRED-FIELDS.
                  15  OUTSTANDING-AMT                 PIC S9(14).