                                                                                                              
  PROCEDURE [INLINE] pfp$convert_device_class_to_pf                                                           
    (    rm_device_class: rmt$device_class;                                                                   
     VAR pf_device_class: pft$device_class);                                                                  
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
                                                                                                              
    CASE rm_device_class OF                                                                                   
    = rmc$connected_file_device =                                                                             
      pf_device_class := pfc$connected_file_device;                                                           
    = rmc$interstate_link_device =                                                                            
      pf_device_class := pfc$interstate_link_device;                                                          
    = rmc$local_queue_device =                                                                                
      pf_device_class := pfc$local_queue_device;                                                              
    = rmc$log_device =                                                                                        
      pf_device_class := pfc$log_device;                                                                      
    = rmc$magnetic_tape_device =                                                                              
      pf_device_class := pfc$magnetic_tape_device;                                                            
    = rmc$mass_storage_device =                                                                               
      pf_device_class := pfc$mass_storage_device;                                                             
    = rmc$memory_resident_device =                                                                            
      pf_device_class := pfc$memory_resident_device;                                                          
    = rmc$network_device =                                                                                    
      pf_device_class := pfc$network_device;                                                                  
    = rmc$null_device =                                                                                       
      pf_device_class := pfc$null_device;                                                                     
    = rmc$pipeline_device =                                                                                   
      pf_device_class := pfc$pipeline_device;                                                                 
    = rmc$rhfam_device =                                                                                      
      pf_device_class := pfc$rhfam_device;                                                                    
    = rmc$terminal_device =                                                                                   
      pf_device_class := pfc$terminal_device;                                                                 
    ELSE                                                                                                      
      pf_device_class := pfc$mass_storage_device;                                                             
    CASEND;                                                                                                   
                                                                                                              
  PROCEND pfp$convert_device_class_to_pf;                                                                     
                                                                                                              
*copyc pft$device_class                                                                                       
*copyc rmt$device_class                                                                                       
?? POP ??                                                                                                     
