PROCEDURE dum$display_stored_fmd, display_stored_fmd, dissfmd(
  address, a: integer = $required
  output, o: file = $output
  status)

  VAR
    header_adr: integer
    subfile_adr: integer
    subfile_base: integer
    subfile_count: integer
    subfile_size: integer
    version_adr: integer
    temp_file: file = $fname($unique)
  VAREND

  set_file_attributes file=temp_file page_format=continuous

  version_adr = address
  dispv ?version_adr.dmt$stored_ms_version_number o=temp_file
  put_line ' ' o=temp_file.$eoi

  header_adr = version_adr + 1
  dispv ?header_adr.dmt$stored_ms_fmd_header o=temp_file.$eoi
  put_line ' ' o=temp_file.$eoi

  subfile_count = $pv(?header_adr.dmt$stored_ms_fmd_header.version_0_0.number_fmds)
  subfile_base = header_adr + $pv(#size(?header_adr.dmt$stored_ms_fmd_header))
  subfile_size = $pv(#size(?subfile_base.dmt$stored_ms_fmd_subfile))

  FOR i = 1 TO subfile_count DO
    subfile_adr = subfile_base+((i-1)*subfile_size)
    dispv ?subfile_adr.dmt$stored_ms_fmd_subfile o=temp_file.$eoi
    put_line ' ' o=temp_file.$eoi
  FOREND

  copy_file i=temp_file o=output
  detach_file temp_file
PROCEND dum$display_stored_fmd
