03 OPEN-PV-LINE-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 OPVL-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). 15 VENDOR-INVOICE PIC X(12). 15 LINE-NO PIC X(02). 10 OPVL-RESULT-FIELDS. 15 FUND PIC X(04). 15 AGENCY PIC X(03). 15 XORGANIZATION PIC X(04). 15 SUB-ORG PIC X(02). 15 ACTIVITY PIC X(04). 15 XOBJECT PIC X(04). 15 SUB-OBJECT PIC X(02). 15 JOB-NUMBER PIC X(08). 15 REPORTING-CATEGORY PIC X(04). 15 BS-ACCOUNT PIC X(04). 15 REVENUE-SOURCE PIC X(04). 15 SUB-REV-SOURCE PIC X(02). 15 PV-LINE-AMOUNT PIC S9(14). 15 PV-LINE-CLD-AMT PIC S9(14). 15 PV-LINE-DISB-AMT PIC S9(14). 15 LAST-CHECK-MW-NO PIC X(13). 15 LAST-CHECK-MW-DATE. 20 LAST-CHECK-MW-YEAR. 25 LAST-CHECK-MW-YEAR-CC PIC X(02). 25 LAST-CHECK-MW-YEAR-YY PIC X(02). 20 LAST-CHECK-MW-MONTH PIC X(02). 20 LAST-CHECK-MW-DAY PIC X(02). 15 DISCOUNT-TYPE PIC X(01). 15 LINE-DESCRIPTION-30 PIC X(30). 15 REF-TRANS-CODE PIC X(02). 15 REF-PO-NUMBER. 20 REF-PO-NUMBER-AGCY PIC X(03). 20 REF-PO-NUMBER-NMBR PIC X(11). 15 REF-PO-LINE PIC X(02). 15 REF-PO-DATE. 20 REF-PO-YEAR. 25 REF-PO-YEAR-CC PIC X(02). 25 REF-PO-YEAR-YY PIC X(02). 20 REF-PO-MONTH PIC X(02). 20 REF-PO-DAY PIC X(02). 15 PC-LINE-NUM PIC X(03). 15 REF-VI-DATE. 20 REF-VI-YEAR. 25 REF-VI-YEAR-CC PIC X(02). 25 REF-VI-YEAR-YY PIC X(02). 20 REF-VI-MONTH PIC X(02). 20 REF-VI-DAY PIC X(02). 15 PV-LINE-DISCOUNT-AMT PIC S9(14). 15 PROJECT-DATA PIC X(08). 15 XFUNCTION PIC X(04). 15 APPR-UNIT PIC X(09). 15 NO-OF-CHECKS-WRITTEN PIC S9(2). 15 TAX-CODE PIC X(03). 15 TAX-AMOUNT PIC S9(14). 15 PRE-TAX-AMT PIC S9(14). 15 TAX-ADJUSTMENT-AMT PIC S9(14). 15 QUANTITY-X PIC X(12). 15 REF-VI-COMM-LINE-NUM PIC X(03). 15 BACKUP-WH-LINE-AMOUNT-X PIC X(14). 15 FREIGHT-AMOUNT PIC S9(14). 15 FED-AID-NUMBER PIC X(12).