
  TYPE
    put$file_display_info = record
      case display: boolean of
      = TRUE =
        pf_entry: put$entry,
        p_file_description: pft$p_file_description,
      = FALSE =
        ,
      casend,
    recend;

*copyc pud$hierarchy_list
*copyc pft$p_file_description
