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 PMT-DISTRIBUTION-SCREEN       REDEFINES MTIOAREA. 
           05  HEADER-KEY-FIELD.                                
                 07  ACCOUNT-NUMBER             PIC X(20).
           05  LINE-KEY-FIELDS.                                     
                 07  LINE-NUMBER                PIC X(2).   
           05  RESULT-FIELDS.                                       
                 07  FUND                       PIC X(4).   
                 07  AGENCY                     PIC X(3).   
                 07  XORGANIZATION              PIC X(4).   
                 07  SUB-ORG                    PIC X(2).   
                 07  APPROPRIATION-UNIT         PIC X(9).   
                 07  ACTIVITY                   PIC X(4).   
                 07  XFUNCTION                  PIC X(4).   
                 07  OBJECT                     PIC X(4).   
                 07  SUB-OBJ                    PIC X(2).   
                 07  PROJECT-JOB-NUMBER         PIC X(8).   
                 07  REPORTING-CATEGORY         PIC X(4).   
                 07  COMMODITY-CODE             PIC X(14).