
  TYPE
    put$hierarchy_list = record
      pf_entry: put$entry,
      date_time: ost$date_time,
      catalog_header: put$catalog_header,
    recend;


  TYPE
    put$catalog_header = record
      set_name: stt$set_name,
      logical_path_length: 0 .. 7fffffff(16),
      path: pft$path,
    recend;


  TYPE
    put$entry_type = (puc$valid_set_entry, puc$valid_family_entry,
          puc$valid_catalog_entry, puc$valid_pf_entry, puc$valid_cycle_entry,
          puc$invalid_entry);

  TYPE
    put$entry = record
      case entry_type: put$entry_type of
      = puc$valid_set_entry =
        set_name: stt$set_name,
      = puc$valid_family_entry =
        family_name: pft$name,
      = puc$valid_catalog_entry =
        catalog_name: pft$name,
      = puc$valid_pf_entry =
        pfn: pft$name,
      = puc$valid_cycle_entry =
        pf_selector: put$pf_selector,
      = puc$invalid_entry =
        ,
      casend,
    recend,


    put$pf_selector = record
      pfn: pft$name,
      cycle_selector: pft$cycle_selector,
    recend,
    put$half_integer = -7fffffff(16) .. 7fffffff(16);

*copyc ost$date_time
*copyc stt$set_name
*copyc pft$path
*copyc pft$name
*copyc pft$cycle_selector
