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).