*&-------------------------------------------------------------*
*& Report  ZFILEREADWRITE
*&
*&-------------------------------------------------------------*
*&
*&
*&-------------------------------------------------------------*
REPORT  zfilereadwrite.

DATA : time_stamp     TYPE timestamp,
           dat                  TYPE d,
           tim                   TYPE t,
           tz                    TYPE ttzz-tzone,
           time_char(32) TYPE c,
           l_st                 TYPE timestampl,
           str_time          TYPE string.

tz  = sy-zonlo.
dat = sy-datum.
tim = sy-uzeit.

CONVERT DATE dat TIME tim DAYLIGHT SAVING TIME 'X'
        INTO TIME STAMP time_stamp TIME ZONE tz.

GET TIME STAMP FIELD l_st.

MOVE l_st TO time_char.

CONDENSE time_char.

CONCATENATE '/usr/sap/' dat  tim time_char+15(3) '.txt' INTO str_time.

WRITE str_time.

*str_time = '/usr/sap/20150425000831506.txt'.

PARAMETERS p_mtart TYPE mara-mtart.

DATA it_mara TYPE TABLE OF mara.
DATA wa_mara TYPE mara.
DATA lv_string TYPE string.
SELECT * FROM mara INTO TABLE it_mara "UP TO 50 ROWS
  WHERE mtart = p_mtart .
OPEN DATASET str_time FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT it_mara INTO wa_mara .

  CONCATENATE wa_mara-matnr wa_mara-mtart wa_mara-meins INTO lv_string.
  TRANSFER lv_string TO str_time.
ENDLOOP.

CLOSE DATASET str_time.

DATA lv_data TYPE string.

OPEN DATASET str_time FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
  READ DATASET str_time INTO lv_data.
  IF sy-subrc <> 0.
    EXIT.
  ELSE.
    WRITE:/ lv_data.
  ENDIF.

ENDDO.
CLOSE DATASET str_time.