*****************************************************************
      *                                                               *
      *    TABLE: OREH                                                *
      *                                                               *
      *****************************************************************
       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  OREH-RECORD REDEFINES MTIOAREA.
               05  OREH-RECORD-KEY.  
                   07  RECEIVABLE-NUMBER.
                       09  RECEIV-NUMBER-AGY            PIC X(03).
                       09  RECEIV-NUMBER-NUM            PIC X(11).   
               05  OREH-RESULT-FIELDS.
                   07  CUSTOMER-ID.
                       09  CUST-CODE                    PIC X(10).
                       09  CUST-ADDR-IND                PIC X(01).
                   07  CUSTOMER-NAME                    PIC X(30).
                   07  CUSTOMER-ADDRESS.
                       09  CUSTOMER-ADDR-LINE1          PIC X(30).
                       09  CUSTOMER-ADDR-LINE2          PIC X(30).
                       09  CUSTOMER-ADDR-LINE3.
                           11  CUSTOMER-ADDR-CITY       PIC X(28).
                           11  CUSTOMER-ADDR-ST         PIC X(02).
                   07  CUSTOMER-ADDR-ZIP.
                       09  CUST-ADDR-ZIP1               PIC X(05).
                       09  CUST-ADDR-ZIP2               PIC X(04).
                   07  BILLING-CODE                     PIC X(04).
                   07  INSTRUCTION-CODE                 PIC X(12).
                   07  EXTERNAL-FLAG                    PIC X(01).
                   07  TEXT-IND                         PIC X(01).
                   07  RECEIV-AMT                       PIC S9(12)V99.                               
                   07  CLOSED-REC-AMT                   PIC S9(12)V99.                 
                   07  REC-DATE.    
                       09  REC-DATE-YR.
                           11  REC-DATE-YR-CC           PIC X(02).
                           11  REC-DATE-YR-YY           PIC X(02).  
                       09  REC-DATE-MNTH                PIC X(02).
                       09  REC-DATE-DAY                 PIC X(02).
                   07  REC-DUE-DATE.      
                       09  REC-DUE-DATE-YR.
                           11  REC-DUE-DATE-YR-CC       PIC X(02).
                           11  REC-DUE-DATE-YR-YY       PIC X(02).     
                       09  REC-DUE-DATE-MNTH            PIC X(02).
                       09  REC-DUE-DATE-DAY             PIC X(02).
                   07  REC-CLOSE-DATE.  
                       09  REC-CL-DATE-YR.
                           11  REC-CL-DATE-YR-CC        PIC X(02).
                           11  REC-CL-DATE-YR-YY        PIC X(02). 
                       09  REC-CL-DATE-MNTH             PIC X(02).
                       09  REC-CL-DATE-DAY              PIC X(02).
                   07  LAST-REC-DATE.  
                       09  LAST-REC-DATE-YR.
                           11  LAST-REC-DATE-YR-CC      PIC X(02).
                           11  LAST-REC-DATE-YR-YY      PIC X(02).   
                       09  LAST-REC-DATE-MNTH           PIC X(02).
                       09  LAST-REC-DATE-DAY            PIC X(02).
                   07  INT-CALC-DATE.      
                       09  INT-CALC-DATE-YR.
                           11  INT-CALC-DATE-YR-CC      PIC X(02).
                           11  INT-CALC-DATE-YR-YY      PIC X(02).      
                       09  INT-CALC-DATE-MNTH           PIC X(02).
                       09  INT-CALC-DATE-DAY            PIC X(02).
                   07  RE-COMMENTS                      PIC X(30).      
                   07  BUDGET-FY.
                      09  BUDGET-FY-CC                  PIC X(02).
                      09  BUDGET-FY-YY                  PIC X(02).      
                   07  OREO-RESULT-FIELDS.
                       09  ACCRUE-FIN-CH                PIC X(01).
                       09  COLL-AGREE-NUMB              PIC X(11).
                       09  COLL-ASSIGN-DATE.      
                           11  COLL-ASSIGN-YR.
                               13  COLL-ASSIGN-YR-CC    PIC X(02).
                               13  COLL-ASSIGN-YR-YY    PIC X(02).      
                           11  COLL-ASSIGN-MNTH         PIC X(02).
                           11  COLL-ASSIGN-DAY          PIC X(02).
                       09  PAYMENT-SCHD                 PIC X(01).
                       09  CUST-INV-GEN                 PIC X(01).
                       09  TYPE-OF-RECEIVABLE           PIC X(01).
                       09  COLL-STATUS                  PIC X(01).
                   07  CUST-DIV                         PIC X(30).
                   07  DISPUTE-FLAG                     PIC X(01).
                   07  THIRD-PARTY-BILL-FL              PIC X(01).  
                   07  CMIA-SCHED-DATE.
                       09  CMIA-SCHED-YEAR.
                           11  CMIA-SCHED-CC            PIC X(02).
                           11  CMIA-SCHED-YY            PIC X(02).
                       09  CMIA-SCHED-MONTH             PIC X(02).
                       09  CMIA-SCHED-DAY               PIC X(02).	
	03  FILLER	                                      PIC X(1662).