
  TYPE
    pft$mainframe_usage_entry = record
      case entry_type: pft$mainframe_entry_type of
      = pfc$free_mainframe_entry =
        ,
      = pfc$normal_mainframe_entry =
        mainframe_id: pmt$binary_mainframe_id,
        attach_count: pft$usage_count,
        write_count: pft$usage_count,
      casend,
    recend;

*copyc pft$mainframe_entry_type
*copyc pft$usage_count
*copyc pmt$binary_mainframe_id
