PROC dum$DISPLAY_IJL_ENTRY display_ijl_entry, disijle (
  ijlo      : integer -281474976710655..281474976710655 = $required
  output, o : file = $output
  )

  crev ijlep
  get_ijlep_via_ijlo $value(ijlo) ijlep
  oo = $string($value(output)) // '.$eoi'
  putl ' ----- IJL  Entry '//$strrep($value(ijlo), 16) o=$fname(oo)
  jmt$initiated_job_list_entry ijlep o=$value(output)

PROCEND dum$display_ijl_entry
