       FD  SCRATCH-FILE.                                                        
       01  SCRATCH-REC                  PIC X(0128).                            
       FD  IN-FILE.                                                             
       01  IN-RECORD                    PIC X(0128).                            
       FD  OUT-FILE.                                                            
       01  OUT-RECORD.                                                          
           03  OUT-KEY-REC.                                                     
               05  OUT-KEY              PIC X(0013).                            
               05  FILLER               PIC X(0115).                            
