                                                                                                              
  TYPE                                                                                                        
    pft$device_class = 0 .. 127;                                                                              
                                                                                                              
*copyc pfc$device_class                                                                                       
