REPORT ZVVSYST .
* ----------------------------------------------------------------------
* This report prints current values of the system fields.
* ----------------------------------------------------------------------
PERFORM PRINT_SY_VALUES.

FORM PRINT_SY_VALUES.
  DATA: IT_DFIES LIKE DFIES OCCURS 0 WITH HEADER LINE,
        W_NAME(10) TYPE C,
        W_INFO(80) TYPE C.
  CALL FUNCTION 'DDIF_FIELDINFO_GET'
       EXPORTING
            TABNAME        = 'SYST'
*           FIELDNAME      = ' '
*           LANGU          = SY-LANGU
*      IMPORTING
*           X030L_WA       =
       TABLES
            DFIES_TAB      = IT_DFIES
       EXCEPTIONS
            NOT_FOUND      = 1
            INTERNAL_ERROR = 2
            OTHERS         = 3.
  LOOP AT IT_DFIES.
    CONCATENATE 'SY-' IT_DFIES-FIELDNAME INTO W_NAME.
    WRITE (W_NAME) TO W_INFO.
    WRITE: / W_NAME COLOR COL_KEY INTENSIFIED OFF,
             12 IT_DFIES-FIELDTEXT,
           / W_INFO.
  ENDLOOP.
ENDFORM.