*****************************************************************
      *                                                               *
      *    TABLE: OPPL                                                *
      *                                                               *
      *****************************************************************
       01 MTI-LOG.
          03 LOGREC-PREFIX.
              05 LOGREC-RECLEN                        PIC S9(04) COMP.
              05 LOGREC-TABNUM                        PIC X(4).
              05 LOGREC-ACTION                        PIC X.
                 88 LOGREC-ACTION-ADD                 VALUE 'A'.
                 88 LOGREC-ACTION-CHANGE              VALUE 'C'.
                 88 LOGREC-ACTION-DELETE              VALUE 'D'.
              05 LOGREC-DATE.
                 07 LOGREC-CC                         PIC XX.
                 07 LOGREC-YY                         PIC XX.
                 07 LOGREC-MM                         PIC XX.
                 07 LOGREC-DD                         PIC XX.
              05 LOGREC-TIME.
                 07 LOGREC-TIME-HH                    PIC XX.
                 07 LOGREC-TIME-MM                    PIC XX.
                 07 LOGREC-TIME-SS                    PIC XX.
              05 LOGREC-TABID                         PIC X(4).
              05 LOGREC-TYPE                          PIC X.    
          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).
          03  FILLER                                  PIC X(1775).