
  TYPE
    pmt$entry_point_reference = record
      entry_point: pmt$program_name,
      object_library: fst$path,
    recend;

*copyc fst$path
*copyc pmt$program_name
