
  TYPE
    jmt$profile_changes = record
      objects_changed: array [jmt$profile_object_kinds] of jmt$object_changes,
      move_classes: jmt$object_name_list,
      resubmitted_jobs: jmt$resubmitted_job_list,
    recend;

  TYPE
    jmt$object_name_list = ^array [1 .. * ] of ost$name,
    jmt$object_changes = record
      new_objects: jmt$object_name_list,
      deleted_objects: jmt$object_name_list,
      changed_objects: jmt$object_name_list,
    recend;

  TYPE
    jmt$resubmitted_job_list = ^array [1 .. * ] of jmt$resubmitted_job_data,
    jmt$resubmitted_job_data = record
      job_name: ost$name,
      status: ost$status,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$profile_object_kinds
*copyc ost$name
*copyc ost$status
?? POP ??
