
PROC dum$display_all_kjl_entries display_all_kjl_entries, disakjle (
  output, o : file = $output
  status)

  kjl_size = $mem(($sa(jmv$kjl_p)+6) 4)
  kjl_entry_size = $mem(($sa(jmv$kjl_p)+14) 4)
  number_of_entries = kjl_size / kjl_entry_size
  FOR kjl_index = 1 TO number_of_entries DO
    display_kjl_entry kjl_index $value(output)
  FOREND

PROCEND dum$display_all_kjl_entries



