
PROC dum$display_all_kjlx_entries display_all_kjlx_entries, disakjlxe (
  output, o : file = $output
  status)

  kjlx_size = $mem(($sa(jmv$kjlx_p)+6) 4)
  kjlx_entry_size = $mem(($sa(jmv$kjlx_p)+14) 4)
  number_of_entries = kjlx_size / kjlx_entry_size
  FOR kjlx_index = 1 TO number_of_entries DO
    display_kjlx_entry kjlx_index $value(output)
  FOREND

PROCEND dum$display_all_kjlx_entries



