*&---------------------------------------------------------------------*
*& Report /EUTIN/DEMO_XML_TIMESTAMP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT /eutin/demo_xml_timestamp
    NO STANDARD PAGE HEADING
    LINE-SIZE 72.

TYPES:
  BEGIN OF ts_xml_output,
    sysid      TYPE sysysid,
    client     TYPE symandt,
    user       TYPE syuname,
    date       TYPE sydatum,
    time       TYPE syuzeit,
    timestampl TYPE timestampl,
  END OF ts_xml_output.

START-OF-SELECTION.
  PERFORM main.

*&---------------------------------------------------------------------*
*&      Form MAIN
*&---------------------------------------------------------------------*
*&      text
*&---------------------------------------------------------------------*
FORM main.

  DATA:
    ls_xml_output TYPE ts_xml_output,
    lv_xml_string TYPE string,
    lv_xml_output TYPE c LENGTH 1024.

  CLEAR: ls_xml_output, lv_xml_output.
  ls_xml_output-sysid  = sy-sysid.
  ls_xml_output-client = sy-mandt.
  ls_xml_output-user   = sy-uname.
  ls_xml_output-date   = sy-datum.
  ls_xml_output-time   = sy-uzeit.
  GET TIME STAMP FIELD ls_xml_output-timestampl.
  CALL TRANSFORMATION id
    SOURCE root = ls_xml_output
    RESULT XML lv_xml_string.
  IF sy-subrc EQ 0.
    WRITE:
      / ls_xml_output-sysid,
      / ls_xml_output-client,
      / ls_xml_output-user,
      / ls_xml_output-date,
      / ls_xml_output-time,
      / ls_xml_output-timestampl.
    ULINE.
    lv_xml_output = lv_xml_string.
    WHILE lv_xml_output IS NOT INITIAL.
      WRITE:
        / lv_xml_output+0(72).
      lv_xml_output = lv_xml_output+72.
    ENDWHILE.
  ENDIF.

ENDFORM.


*--- The End!