
  PROCEDURE [INLINE] qfp$ready_job_leveler;

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_status: ost$status;

    qfp$set_leveler_ready (TRUE);
    pmp$ready_task (jmv$known_job_list.application_table [
          jmc$ve_input_application_index].global_task_id, ignore_status);

  PROCEND qfp$ready_job_leveler;

*copy qfh$ready_job_leveler

*copyc ost$status
*copyc pmp$ready_task
*copyc qfp$set_leveler_ready
*copyc jmv$known_job_list
?? POP ??
