
  TYPE
    dft$family_info_record = record
      family_name: ost$family_name,
      family_state: dft$server_state,
      case access_type: dft$family_access_type of
      = dfc$set_access =
        set_name: ost$name,
      = dfc$server_access =
        server_mainframe_name: pmt$mainframe_id,
        server_binary_mainframe_id: pmt$binary_mainframe_id,
        family_access: dft$family_access,
      casend,
    recend;

*copyc dft$family_access
*copyc dft$family_access_type
*copyc dft$server_state
*copyc ost$name
*copyc ost$user_identification
*copyc pmt$binary_mainframe_id
*copyc pmt$mainframe_id

