PROC dum$DISPLAY_P_T_L_ENTRY display_p_t_l_entry, disptle (
  gtid      : integer -281474976710655..281474976710655 = $required
  output, o : file = $output
  )

  crev ptlp
  get_ptlep_via_gtid $value(gtid) ptlp
  oo = $string($value(output)) // '.$eoi'
  putl ' ----- PTL  Entry '//$strrep($value(gtid), 16) o=$fname(oo)
  tmt$primary_task_list_entry ptlp o=$value(output)

PROCEND dum$display_p_t_l_entry
