
PROC dum$display_job_candidate_queue, display_job_candidate_queue, disjcq (
  output, o : file = $output
  status)

  create_variable name=(length,offset) k=integer
  queue_address = $sa(jmv$candidate_queued_jobs)
  jmt$candidate_queued_job queue_address length=length offset=offset ..
       field=JOB_MONITOR_GLOBAL_TASK_ID
  maximum_job_class_in_use = $mem($sa(jmv$maximum_job_class_in_use) 1)
  entry_length = offset/8 + length/8
  output_eoi = $strrep($value(output))//'.$eoi'
  FOR job_class_index = 0 TO maximum_job_class_in_use DO
    put_line '  Job Class ---> '//$strrep(job_class_index 16) o=$fname(output_eoi)
    jmt$candidate_queued_job (queue_address+(entry_length*job_class_index))  ..
         o=$value(output)
  FOREND

PROCEND dum$display_job_candidate_queue



