
  TYPE
    jmt$queue_file_path = array [pfc$family_name_index ..
          pfc$subcatalog_name_index + 1] of pft$name;

*copyc pfc$family_name_index
*copyc pfc$subcatalog_name_index
*copyc pft$name
