REPORT  zmr_salvagnini_xml_input.


DATA:


      ls_order TYPE zmr_salvagnini_xml,
      ls_body  TYPE zmr_salvagnini,
      lv_xml_out TYPE string,
      gv_error_str TYPE string,
      gr_exception TYPE REF TO cx_st_error,
      lv_xml TYPE string,
      dsn(20) TYPE c VALUE 'd:\*.syn'.

DATA: time_stamp TYPE timestamp,
      time TYPE string,
      filename TYPE string.

TYPES: t_xml_line(1024) TYPE x.

DATA: l_filename        TYPE string,
      l_xml_table       TYPE TABLE OF t_xml_line,
      l_xml_line        TYPE t_xml_line,
      l_xml_table_size  TYPE i,
      p_path TYPE salfile-longname VALUE 'd:\'.

DATA: ifile TYPE TABLE OF  salfldir WITH HEADER LINE.

OPEN DATASET dsn FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc <> 0.


  CALL FUNCTION 'RZL_READ_DIR_LOCAL'
    EXPORTING
      name           = p_path
    TABLES
      file_tbl       = ifile
    EXCEPTIONS
      argument_error = 1
      not_found      = 2
      OTHERS         = 3.

  IF sy-subrc NE 0.

    WRITE:/ 'We have a Problem!', sy-subrc.
  ELSE.

    LOOP AT ifile.

      "  WRITE:/ ifile-name.

    ENDLOOP.
  ENDIF.
ELSE.
  WRITE: / 'Huston we have a problem!'.

ENDIF.