
  TYPE
    put$user_range_list = array [1 .. * ] of put$user_range,

    put$user_range = array [clt$low_or_high] of put$user_path,

    put$user_path = array [pfc$family_name_index ..
          pfc$master_catalog_name_index] of pft$name;

  CONST
    puc$max_number_of_user_ranges = 20;

  CONST
    puc$default_low_name = '#                              ',
    puc$default_high_name = 'zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz';


  TYPE
    put$user_range_list_container = SEQ (REP puc$max_number_of_user_ranges of
          put$user_range);

*copyc pfc$family_name_index
*copyc pfc$master_catalog_name_index
*copyc clt$low_or_high
*copyc pft$name
