01  FD-REC-DELIMIT.                                            
     05  FD-BATCH-DATA.                                           
         10  BATCH-TYPE                     PIC X(04).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  BATCH-ORG                      PIC X(03).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  BATCH-NUMBER                   PIC X(06).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DOC-TYPE                       PIC X(04).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DOC-ORG                        PIC X(03).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DOC-NUMBER                     PIC X(11).          
         10  FILLER                         PIC X(01) VALUE '|'.
     05  FD-HDR-DATA.                                           
         10  TRANS-CODE                     PIC X(02).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  TRANS-AGENCY                   PIC X(03).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  TRANS-NUMBER                   PIC X(11).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  RECORD-DATE.                                       
             15  RECORD-YEAR                PIC X(02).          
             15  RECORD-MONTH               PIC X(02).          
             15  RECORD-DAY                 PIC X(02).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  ACCOUNTING-PERIOD.                                 
             15  FISC-MONTH                 PIC X(02).          
             15  FISC-YEAR                  PIC X(02).          
         10  FILLER                         PIC X(01) VALUE '|'.
     05  FD-LN-DATA.                                            
         10  FIXED-ASSET-NUMBER             PIC X(15).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  FIXED-ASSET-TYPE               PIC X(01).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DISPOSITION-METHOD             PIC X(01).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DISPOSITION-DATE.                                  
             15  DISPOSITION-YEAR           PIC X(04).          
             15  DISPOSITION-MONTH          PIC X(02).          
             15  DISPOSITION-DAY            PIC X(02).            
         10  FILLER                         PIC X(01) VALUE '|'.  
         10  SELLING-PRICE                  PIC X(14).            
         10  FILLER                         PIC X(01) VALUE '|'.  
         10  DISPOSITION-AUTH               PIC X(15).            
         10  FILLER                         PIC X(01) VALUE '|'.  
         10  DISPOSED-UNITS                 PIC X(08).            
         10  FILLER                         PIC X(01) VALUE '|'.  
         10  DISPLAY-ONLY-FIELDS.                                 
             15  ASSET-DESC                 PIC X(27).            
             15  FILLER                     PIC X(01) VALUE '|'.  
             15  ACQ-DATE                   PIC X(08).            
             15  FILLER                     PIC X(01) VALUE '|'.  
             15  ASSET-VALUE                PIC X(16).            
             15  FILLER                     PIC X(01) VALUE '|'.  
             15  VERIFY-MSG                 PIC X(60).            
             15  FILLER                     PIC X(01) VALUE '|'.  
         10  BETTERMENT-NUMBER              PIC X(02).            
         10  FILLER                         PIC X(01) VALUE '|'.  
         10  FD-STATUS                      PIC X(05).            
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LAST-USER                      PIC X(08).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  APPROVALS                      PIC X(05).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LAST-DATE                      PIC X(08).