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 BS-ACCOUNT-BAL-TABLE REDEFINES MTIOAREA. 
           05  DOCD-IOAREA.               
                 10  BBAL-KEY-FIELDS.      
                       15  FUND 			PIC X(04). 
                       15  BS-ACCOUNT 			PIC X(04).       
                 10  BBAL-RESULT-FIELDS.                               
                       15  BS-ACCOUNT-BALANCE		PIC S9(14).      
                       15  BS-ACCOUNT-BALANCE-9 REDEFINES                   
                             BS-ACCOUNT-BALANCE 	PIC S9(12)V99.   
                       15  BD-BS-ACCT-BALANCE 		PIC S9(14).      
                       15  BD-BS-ACCT-BALANCE-9 REDEFINES                   
                             BD-BS-ACCT-BALANCE		PIC S9(12)V99.   
                 10  BBAL-INFERRED-FIELDS.                             
                       15  ACCOUNT-NAME  		PIC X(12).       
                       15  ACCOUNT-TYPE 		PIC X(02).       
                       15  EXCEPTION-IND 		PIC X(01).