
  PROCEDURE [XREF] jmp$update_profile_in_tables
    (    access_id: ost$binary_unique_name;
         changed_job_classes_p: ^jmt$job_class_table;
         changed_service_classes_p: ^jmt$service_class_table;
         changed_applications_p: ^jmt$application_table;
         controls_p: ^jmt$job_scheduler_table;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$application_table
*copyc jmt$job_class_table
*copyc jmt$job_scheduler_table
*copyc jmt$service_class_table
*copyc ost$binary_unique_name
*copyc ost$status
?? POP ??
