03 OPEN-PV-HEADER-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 OPVH-KEY-FIELDS. 15 VENDOR-CODE-R PIC X(11). 15 VOUCHER-NUMBER. 20 VOUCHER-NUMBER-AGCY PIC X(03). 20 VOUCHER-NUMBER-NMBR PIC X(11). 10 OPVH-RESULT-FIELDS. 15 BUDGET-FY. 20 BUDGET-FY-CC PIC X(02). 20 BUDGET-FY-YY PIC X(02). 15 TYPE-OF-VOUCHER PIC X(01). 15 VENDOR-NAME PIC X(30). 15 VENDOR-ADDRESS-LINE1 PIC X(30). 15 VENDOR-ADDRESS-LINE2 PIC X(30). 15 VENDOR-ADDRESS-LINE3. 20 CITY-STATE. 25 CITY PIC X(18). 25 STATE PIC X(02). 20 ZIP-CODE PIC X(10). 15 OFF-LIAB-ACCT PIC X(04). 15 VOUCHER-AMT PIC S9(14). 15 CLOSED-VOUCHER-AMT PIC S9(14). 15 VOUCHER-DATE. 20 VOUCHER-YEAR. 25 VOUCHER-YEAR-CC PIC X(02). 25 VOUCHER-YEAR-YY PIC X(02). 20 VOUCHER-MONTH PIC X(02). 20 VOUCHER-DAY PIC X(02). 15 VOUCHER-CLOSING-DATE. 20 VOUCHER-CLOSING-YEAR. 25 VOUCHER-CLOSING-YEAR-CC PIC X(02). 25 VOUCHER-CLOSING-YEAR-YY PIC X(02). 20 VOUCHER-CLOSING-MNTH PIC X(02). 20 VOUCHER-CLOSING-DAY PIC X(02). 15 SCHED-PYMT-DATE. 20 SCHED-PYMT-YEAR. 25 SCHED-PYMT-YEAR-CC PIC X(02). 25 SCHED-PYMT-YEAR-YY PIC X(02). 20 SCHED-PYMT-MONTH PIC X(02). 20 SCHED-PYMT-DAY PIC X(02). 15 HOLD-PAYMENT-IND PIC X(01). 15 CHECK-CATEGORY PIC X(2). 15 SINGLE-CHECK-FLAG PIC X(1). 15 DISCOUNT-AMOUNT PIC S9(14). 15 TAX-CODE PIC X(03). 15 USE-TAX-AMOUNT PIC S9(14). 15 FREIGHT-IND PIC X(01). 15 FREIGHT-TOTAL PIC S9(14). 15 EFT-IND PIC X(01). 15 APPLICATION-TYPE PIC X(02). 15 TOTAL-QUANTITY PIC S9(12).