PROC dum$GET_IJLEP_VIA_IJLO get_ijlep_via_ijlo (
  ijlo  : integer -281474976710655..281474976710655 = $required
  ijlep : var of integer = $required
  )

  crev (junk ijll ijla ijlb ijlbn ijlbi)
  ijla = $mem($sa(jmv$ijl_p) 6)
  ijlbn = $value(ijlo) / 32
  ijlbi = $mod($value(ijlo), 32)
  ijlb = $mem(ijla+8*ijlbn+2, 6)
  fetch_field_info jmt$initiated_job_list_entry field=jmt$initiated_job_list_entry offset=junk length=ijll
  "Word aligned
  IF $mod(ijll, 64) <> 0 THEN
    ijll = ijll + 64 - $mod(ijll, 64)
  IFEND
  ijll = ijll / 8
  $value(ijlep) = ijlb + (ijll * ijlbi)

PROCEND dum$get_ijlep_via_ijlo
