
PROC dum$display_kjlx_entry display_kjlx_entry, diskjlxe (
  kjlx_index : integer 1..65535 = $required
  output, o : file = $output
  status)


  kjlx_address = $mem($sa(jmv$kjlx_p) 6)
  kjlx_size = $mem(($sa(jmv$kjlx_p)+6) 4)
  kjlx_entry_size = $mem(($sa(jmv$kjlx_p)+14) 4)
  IF $value(kjlx_index) > (kjlx_size / kjlx_entry_size) THEN
    EXIT_PROC WITH $STATUS(FALSE, 'DE', 0, 'kjlx_index is out of range')
  IFEND
  kjlx_entry_address = kjlx_address + ($value(kjlx_index)-1)*kjlx_entry_size
  output_eoi = $string($value(output))//'.$eoi'
  putl ' ----- KJLX  Entry '//$strrep($value(kjlx_index), 16) o=$fname(output_eoi)
  jmt$known_job_list_extended kjlx_entry_address o=$value(output)

PROCEND dum$display_kjlx_entry



