PROC dum$GET_PTLEP_VIA_GTID get_ptlep_via_gtid (
  gtid  : integer -281474976710655..281474976710655 = $required
  ptlep : var of integer = $required
  )

  crev (tindex)
  tindex = $value(gtid) / 100(16)
  compute_entry_address $sa(tmv$ptl_p) tindex $value(ptlep)

PROCEND dum$get_ptlep_via_gtid
