03 OPEN-SR-HEADER-TABLE REDEFINES MTIOAREA. 10 OSRH-KEY-FIELDS. 15 TRANS-ID. 20 TRANS-CODE PIC X(02). 20 TRANS-NUMBER. 25 TRANS-NUMBER-AGENCY PIC X(03). 25 TRANS-NUMBER-NUMBER PIC X(11). 10 OSRH-RESULT-FIELDS. 15 TRANS-DATE. 20 TRANS-YEAR. 25 TRANS-YEAR-CC PIC X(02). 25 TRANS-YEAR-YY PIC X(02). 20 TRANS-MONTH PIC X(02). 20 TRANS-DAY PIC X(02). 15 ACCOUNTING-PERIOD. 20 FISC-YEAR. 25 FISC-YEAR-CC PIC X(02). 25 FISC-YEAR-YY PIC X(02). 20 FISC-QUARTER PIC X(01). 20 FISC-MONTH PIC X(02). 15 BUDGET-FY. 20 BUDGET-FY-CC PIC X(02). 20 BUDGET-FY-YY PIC X(02). 15 STOCK-SR-AMT PIC S9(12)V99. 15 CLOSED-SR-AMT PIC S9(12)V99. 15 WAREHOUSE PIC X(04). 15 REQUESTING-AGENCY PIC X(03). 15 REQUESTING-ORG PIC X(04). 15 REQUESTED-BY PIC X(20). 15 DELIVER-BLDG-ROOM PIC X(10). 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 COMMENTS-30 PIC X(30). 15 BACKORDERED-STATUS PIC X(01). 88 BACKORDERED--PARTIAL VALUE 'P'. 88 BACKORDERED--FULL VALUE 'F'. 88 BACKORDERED--NO VALUE 'N'. 88 BACKORDERED-STATUS-VALID VALUE 'P' 'F' 'N'. 15 RESERVED-STATUS PIC X(01). 88 RESERVED--PARTIAL VALUE 'P'. 88 RESERVED--FULL VALUE 'F'. 88 RESERVED--NO VALUE 'N'. 88 RESERVED-STATUS-VALID VALUE 'P' 'F' 'N'. 15 RELEASED-STATUS PIC X(01). 88 RELEASED--PARTIAL VALUE 'P'. 88 RELEASED--FULL VALUE 'F'. 88 RELEASED--NO VALUE 'N'. 88 RELEASED-STATUS-VALID VALUE 'P' 'F' 'N'. 15 STATUS-DATE. 20 STATUS-YEAR. 25 STATUS-YEAR-CC PIC X(02). 25 STATUS-YEAR-YY PIC X(02). 20 STATUS-MONTH PIC X(02). 20 STATUS-DAY PIC X(02). 15 TOTAL-COMM-LINES PIC S9(03). 15 CLOSED-COMM-LINES PIC S9(03). 15 NUMBER-OF-ISSUES PIC S9(02). 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 SHIP-WHOLE-FLAG PIC X(01). 15 ACCEPTANCE-DATE. 20 ACCEPTANCE-YEAR. 25 ACCEPTANCE-YEAR-CC PIC X(02). 25 ACCEPTANCE-YEAR-YY PIC X(02). 20 ACCEPTANCE-MONTH PIC X(02). 20 ACCEPTANCE-DAY PIC X(02).