?? NEWTITLE := 'NOS/VE Job Management : Interactive Load Leveling' ??
MODULE jmm$mainframe_get_leveling_data;

{ PURPOSE:
{   This module contains a procedure that is called on each mainframe in a
{   cluster via remote procedure call.  The procedure collects data and
{   returns it to the caller.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc osd$integer_limits
?? POP ??
*copyc jmp$get_active_scheduling_attr
?? OLDTITLE ??
?? NEWTITLE := '[XDCL] jmp$mainframe_get_leveling_data', EJECT ??
*copy jmh$mainframe_get_leveling_data

  PROCEDURE [XDCL] jmp$mainframe_get_leveling_data
    (    send_data_p: ^SEQ ( * );
     VAR work_area_p: ^jmt$work_area;
     VAR status: ost$status);

    VAR
      copy_send_data_p: ^SEQ ( * ),
      job_class_name_p: ^ost$name,
      number_of_keys_p: ^ost$non_negative_integers,
      scheduling_attr_results_p: ^jmt$scheduling_attr_results,
      scheduling_results_keys_p: ^jmt$scheduling_results_keys;


    status.normal := TRUE;

    copy_send_data_p := send_data_p;
    RESET copy_send_data_p;
    NEXT job_class_name_p IN copy_send_data_p;
    NEXT number_of_keys_p IN copy_send_data_p;
    NEXT scheduling_results_keys_p: [1 .. number_of_keys_p^] IN
          copy_send_data_p;

    jmp$get_active_scheduling_attr (job_class_name_p^,
          scheduling_results_keys_p, work_area_p, scheduling_attr_results_p,
          status);

  PROCEND jmp$mainframe_get_leveling_data;
?? OLDTITLE ??

MODEND jmm$mainframe_get_leveling_data;
