*****************************************************************
      *                                                               *
      *    TABLE: ORQH                                                *
      *                                                               *
      *****************************************************************
       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 ALT-ORQH-TABLE                     REDEFINES MTIOAREA.
                 10  ORQH-KEY-FIELDS.
                  15  TRANS-CODE                      PIC X(02).      
                  15  RQ-NUMBER.
                   20  RQ-NUMBER-AGENCY               PIC X(03).
                   20  RQ-NUMBER-NUMBER               PIC X(11).      
                 10  ORQH-RESULT-FIELDS.
                  15  RQ-DATE.      
                   20  RQ-YEAR.
                       25  RQ-YEAR-CC                 PIC X(02).
                       25  RQ-YEAR-YY                 PIC X(02).      
                   20  RQ-MONTH                       PIC X(02).
                   20  RQ-DAY                         PIC X(02).
                  15 FILLER                           PIC X.      
                  15  BUDGET-FY.
                      20  BUDGET-FY-CC                PIC X(02).
                      20  BUDGET-FY-YY                PIC X(02).      
                  15  RESP-AGENCY                     PIC X(03).
                  15  XORGANIZATION                   PIC X(04).
                  15  REQUESTED-BY                    PIC X(20).
                  15  PHONE-NUMBER                    PIC X(12).
                  15  DELIVERY-DATE.      
                   20  DELIVERY-YEAR.
                       25  DELIVERY-YEAR-CC           PIC X(02).
                       25  DELIVERY-YEAR-YY           PIC X(02).      
                   20  DELIVERY-MONTH                 PIC X(02).
                   20  DELIVERY-DAY                   PIC X(02).
                  15  SUGG-VENDOR-CODE                PIC X(11).
                  15  SUGG-VENDOR-NAME                PIC X(30).
                  15  DELIVER-BLDG-ROOM               PIC X(10).
                  15  RESP-PERSON                     PIC X(20).
                  15  RQ-AMOUNT                       PIC S9(14).
                  15  CLOSED-AMOUNT                   PIC S9(14).
                  15  CLOSED-DATE.     
                   20  CLOSED-YEAR.
                       25  CLOSED-YEAR-CC             PIC X(02).
                       25  CLOSED-YEAR-YY             PIC X(02).      
                   20  CLOSED-MONTH                   PIC X(02).
                   20  CLOSED-DAY                     PIC X(02).
                  15  OFF-RESERVE-ACCT                PIC X(04).
                  15  COMMENTS-12                     PIC X(12).
                  15  SUGG-VENDOR-ADDR1               PIC X(30).
                  15  SUGG-VENDOR-ADDR2               PIC X(30).
                  15  SUGG-VENDOR-ADDR3.
                   20  SUGG-CITY                      PIC X(18).
                   20  SUGG-STATE                     PIC X(2).
                   20  SUGG-ZIP-CODE                  PIC X(10).
                  15  SUGG-VENDOR-CONTACT             PIC X(30).
                  15  SUGG-VENDOR-PHONE               PIC X(12).
                  15  ORG-SHORT-NAME                  PIC X(20).
                  15  TOTAL-COMM-LINES                PIC 9(03).
                  15  FINAL-COMM-LINES                PIC 9(03).
                  15  LINKING-OPTION                  PIC X(01).
                  15  WAREHOUSE                       PIC X(04).
                  15  RX-TYPE                         PIC X(01).
                  15  NOTE-PAD-IND                    PIC X(01).
                  15  SHIP-ADDRESS-CODE               PIC X(03).
                  15  BILL-ADDRESS-CODE               PIC X(03).
                  15  MODIFICATION-NUM                PIC X(02).
                  15  MODIFICATION-DATE.      
                   20  MODIFICATION-YEAR.
                       25  MODIFICATION-YEAR-CC       PIC X(02).
                       25  MODIFICATION-YEAR-YY       PIC X(02).      
                   20  MODIFICATION-MONTH             PIC X(02).
                   20  MODIFICATION-DAY               PIC X(02).
                  15  LAST-PRINT-DATE.      
                   20  LAST-PRINT-YEAR.
                       25  LAST-PRINT-YEAR-CC         PIC X(02).
                       25  LAST-PRINT-YEAR-YY         PIC X(02).      
                   20  LAST-PRINT-MONTH               PIC X(02).
                   20  LAST-PRINT-DAY                 PIC X(02).
                  15  TAX-CODE                        PIC X(03).
                  15  DISCOUNT-CODE                   PIC X(01).
                  15  DISCOUNT-TOTAL                  PIC S9(12)V99.                
                  15  FREIGHT-IND                     PIC X(01).           
                  15  FREIGHT-TOTAL                   PIC S9(12)V99.              
                  15  TOTAL-QUANTITY                  PIC S9(09)V9(03).
          03  FILLER                                  PIC X(1567).