***************************************************************** * * * TABLE: ORQC * * * ***************************************************************** 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-ORQC-TABLE REDEFINES MTIOAREA. 10 TRANS-CODE PIC X(02). 10 RQ-NUMBER. 15 RQ-NUMBER-AGENCY PIC X(03). 15 RQ-NUMBER-NUMBER PIC X(11). 10 ORQC-KEY-LINE-FIELDS. 15 LINE-NUM PIC X(03). 10 ORQC-RESULT-FIELDS. 15 QUANTITY PIC 9(12). 15 UNIT-OF-MEASURE PIC X(04). 15 COMMODITY-CODE PIC X(14). 15 MANUFACTURERS-NUM PIC X(20). 15 DESCRIPTION-60 PIC X(60). 15 UNIT-COST PIC S9(14). 15 EXTEND-COST-AMT PIC S9(14). 15 QUANTITY-ORDERED PIC 9(12). 15 EXTEND-ORDERED-AMT PIC S9(14). 15 PARTIAL-FINAL-FLAG PIC X(01). 15 TEXT-FLAG PIC X(01). 15 ITEM-CODE PIC X(03). 15 BID-ID. 20 BID-NUMBER PIC X(10). 20 BID-SUFFIX PIC X(01). 15 BID-LINE-NUMBER PIC X(03). 15 REF-ACCT-LINE PIC X(02). 15 MANUFACTURERS-NAME PIC X(30). 15 FREEZE-UNFREEZE PIC X(01). 15 CURRENT-BUYER PIC X(02). 15 APPROVAL-GROUPS. 20 APPROVE-GROUP-1 PIC X(02). 20 APPROVE-GROUP-2 PIC X(02). 20 APPROVE-GROUP-3 PIC X(02). 20 APPROVE-GROUP-4 PIC X(02). 20 APPROVE-GROUP-5 PIC X(02). 20 APPROVE-GROUP-6 PIC X(02). 20 APPROVE-GROUP-7 PIC X(02). 20 APPROVE-GROUP-8 PIC X(02). 20 APPROVE-GROUP-9 PIC X(02). 20 APPROVE-GROUP-10 PIC X(02). 15 APPROVAL-LINE. 20 APPROVE-LINE-1 PIC X(01). 20 APPROVE-LINE-2 PIC X(01). 20 APPROVE-LINE-3 PIC X(01). 20 APPROVE-LINE-4 PIC X(01). 20 APPROVE-LINE-5 PIC X(01). 20 APPROVE-LINE-6 PIC X(01). 20 APPROVE-LINE-7 PIC X(01). 20 APPROVE-LINE-8 PIC X(01). 20 APPROVE-LINE-9 PIC X(01). 20 APPROVE-LINE-10 PIC X(01). 15 CURRENT-TYPE PIC X(01). 15 TAX-CODE PIC X(03). 15 TAX-AMOUNT PIC S9(12)V99. 15 PRE-TAX-AMT PIC S9(12)V99. 15 ORIG-UNIT-COST PIC S9(08)V9(06). 15 DISCOUNT-CODE PIC X(01). 15 PERCENT-OF-DISCOUNT PIC X(05). 15 DISCOUNT-AMOUNT PIC S9(12)V99. 15 FREIGHT-AMOUNT PIC S9(12)V99. 03 FILLER PIC X(1653).