
  TYPE
    amt$entry_point_reference = record
      name: pmt$program_name,
      object_library: amt$path_name,
    recend;

*copyc amt$path_name
*copyc pmt$program_name
