***************************************************************** * * * TABLE: ORQL * * * ***************************************************************** 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-ORQL-TABLE REDEFINES MTIOAREA. 10 ORQL-KEY-HEADER-FIELDS. 15 TRANS-CODE PIC X(02). 15 RQ-NUMBER. 20 RQ-NUMBER-AGENCY PIC X(03). 20 RQ-NUMBER-NUMBER PIC X(11). 15 OPEN-REQ-ACCT-LINE-DETAIL. 20 ORQL-KEY-LINE-FIELDS. 25 LINE-NO PIC X(02). 20 ORQL-RESULT-FIELDS. 25 FUND PIC X(04). 25 AGENCY PIC X(03). 25 XORGANIZATION PIC X(04). 25 SUB-ORG PIC X(02). 25 OBJECT PIC X(04). 25 SUB-OBJECT PIC X(02). 25 ACTIVITY PIC X(04). 25 JOB-NUMBER PIC X(08). 25 REPORTING-CATEGORY PIC X(04). 25 TOTAL-LINE-AMT PIC S9(14). 25 CLOSED-AMOUNT PIC S9(14). 25 ACTUAL-OBLIG-AMT PIC S9(14). 25 PROJECT-DATA PIC X(08). 25 XFUNCTION PIC X(04). 25 BS-ACCOUNT PIC X(04). 25 APPR-UNIT PIC X(09). 03 FILLER PIC X(1880).