
PROC dum$display_kol_entry display_kol_entry, diskole (
  kol_index : integer 1..65535 = $required
  output, o : file = $output
  status)


  kol_address = $mem($sa(jmv$kol_p) 6)
  kol_size = $mem(($sa(jmv$kol_p)+6) 4)
  kol_entry_size = $mem(($sa(jmv$kol_p)+14) 4)
  IF $value(kol_index) > (kol_size / kol_entry_size) THEN
    EXIT_PROC WITH $STATUS(FALSE, 'DE', 0, 'kol_index is out of range')
  IFEND
  kol_entry_address = kol_address + ($value(kol_index)-1)*kol_entry_size
  output_eoi = $string($value(output))//'.$eoi'
  putl ' ----- KOL  Entry '//$strrep($value(kol_index), 16) o=$fname(output_eoi)
  jmt$known_output_list_entry kol_entry_address o=$value(output)

PROCEND dum$display_kol_entry



