PROC dum$DISPLAY_ALL_IJL_ENTRIES display_all_ijl_entries, disaijle (
  output, o : file = $output
  )

  crev (junk ijll ijleso ijlesl)

  ijla = $mem($sa(jmv$ijl_p) 6)
  maxbn = $mem($sa(jmv$ijl_p)+18, 2)

  fetch_field_info jmt$initiated_job_list_entry field=jmt$initiated_job_list_entry junk ijll
  "Word aligned
  IF $mod(ijll, 64) <> 0 THEN
    ijll = ijll + 64 - $mod(ijll, 64)
  IFEND
  ijll = ijll / 8

  fetch_field_info jmt$initiated_job_list_entry field=entry_status offset=ijleso length=ijlesl
  ijleso = ijleso / 8
  ijlesl = ijlesl / 8

  oo = $string($value(output)) // '.$eoi'

  FOR ijlbn = 0 TO maxbn DO
    ijlb = $mem(ijla+8*ijlbn+2, 6)
    IF NOT $nil_pva(ijlb) THEN
      FOR ijlbi = 0 TO 31 DO
        ijlep = ijlb + ijlbi * ijll
        IF $mem(ijlep+ijleso, ijlesl) > 0 THEN

          putl ' ----- IJL  Entry '//$strrep(ijlbn)//'-'//$strrep(ijlbi) o=$fname(oo)
          jmt$initiated_job_list_entry ijlep o=$value(output)

        IFEND
      FOREND
    IFEND
  FOREND

PROCEND dum$display_all_ijl_entries
