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