
PROC dum$display_kjl_entry display_kjl_entry, diskjle (
  kjl_index : integer 1..65535 = $required
  output, o : file = $output
  status)


  kjl_address = $mem($sa(jmv$kjl_p) 6)
  kjl_size = $mem(($sa(jmv$kjl_p)+6) 4)
  kjl_entry_size = $mem(($sa(jmv$kjl_p)+14) 4)
  IF $value(kjl_index) > (kjl_size / kjl_entry_size) THEN
    EXIT_PROC WITH $STATUS(FALSE, 'DE', 0, 'kjl_index is out of range')
  IFEND
  kjl_entry_address = kjl_address + ($value(kjl_index)-1)*kjl_entry_size
  output_eoi = $string($value(output))//'.$eoi'
  putl ' ----- KJL  Entry '//$strrep($value(kjl_index), 16) o=$fname(output_eoi)
  jmt$known_job_list_entry kjl_entry_address o=$value(output)

PROCEND dum$display_kjl_entry



