       SELECT SCRATCH-FILE ASSIGN TO RANDOM "SCRTCH.FIL"                        
           ORGANIZATION IS BINARY SEQUENTIAL.                                   
       SELECT IN-FILE  ASSIGN TO RANDOM IN-NAME                                 
           ORGANIZATION IS BINARY SEQUENTIAL.                                   
       SELECT OUT-FILE ASSIGN TO RANDOM OUT-NAME                                
           ORGANIZATION IS INDEXED                                              
           ACCESS MODE IS RANDOM                                                
           RECORD KEY IS OUT-KEY                                                
           FILE STATUS IS FILE-STATUS.                                          
