
PROC dum$display_all_kol_entries display_all_kol_entries, disakole (
  output, o : file = $output
  status)

  kol_size = $mem(($sa(jmv$kol_p)+6) 4)
  kol_entry_size = $mem(($sa(jmv$kol_p)+14) 4)
  number_of_entries = kol_size / kol_entry_size
  FOR kol_index = 1 TO number_of_entries DO
    display_kol_entry kol_index $value(output)
  FOREND

PROCEND dum$display_all_kol_entries



