
  TYPE
    rat$upper_level_permit = record
      catalog: string (fsc$max_path_size),
      size: 0 .. fsc$max_path_size,
      permit: rat$permit,
    recend;

*copyc rat$subproduct_info_types
*copyc fsc$max_path_size
