
  PROCEDURE [XREF] qfp$assign_jobs_to_client
    (    client_mainframe_id: pmt$binary_mainframe_id;
         leveler_job_class_data: jmt$jl_job_class_data;
         job_class_priorities: jmt$jl_job_class_priorities;
         initiation_required_categories: jmt$job_category_set;
         initiation_excluded_categories: jmt$job_category_set;
         assigned_job_list_p { output } : ^jmt$jl_assigned_job_list;
     VAR number_of_jobs_assigned: jmt$job_count_range;
     VAR server_job_priorities: jmt$jl_server_job_priorities);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$jl_assigned_job_list
*copyc jmt$jl_job_class_data
*copyc jmt$jl_job_class_priorities
*copyc jmt$jl_server_job_priorities
*copyc jmt$job_category_set
*copyc jmt$job_count_range
*copyc pmt$binary_mainframe_id
?? POP ??
