***************************************************************************** 
TABLE: PHASE-ACTIVITY-TABLE * * * * KEY: BUDGET-FY * * PHASE * * ACTIVITY *****************************************************************************
 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 PHASE-ACTIVITY-TABLE REDEFINES MTIOAREA. 
       05 DOCD-IOAREA. 
       10 PACT-KEY-FIELDS. 
       15 BUDGET-FY. 
       20 BUDGET-FY-CC PIC X(02). 
       20 BUDGET-FY-YY PIC X(02). 
       15 PHASE PIC X(01). 
       15 ACTIVITY PIC X(04). 
       10 PACT-RESULT-FIELDS. 
       15 CE-INDICATOR PIC X(01). 
       03 FILLER PIC X(1990).