*&---------------------------------------------------------------------*
*& Report  Z_SPERRVERWALTUNG                                           *
*&                                                                     *
*&---------------------------------------------------------------------*
*&  Aktiviert/Deaktiviert die Sperrverwaltung.                         *
*&  Wird bentigt u.a. bei Customizing Schulungen                      *
*&---------------------------------------------------------------------*

REPORT  Z_SPERRVERWALTUNG MESSAGE-ID MT.


PARAMETERS:
AK RADIOBUTTON GROUP RAD1,
NA RADIOBUTTON GROUP RAD1 DEFAULT 'X'. " neu

IF SY-UNAME NE 'KOWALSKIJ'.
  CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
       EXPORTING
            TITEL        = 'No Chance...'
            TEXTLINE1    = 'Sie haben keine Berechtigung fr'
            TEXTLINE2    = 'das Programm.'
            START_COLUMN = 25
            START_ROW    = 6.
  EXIT.
ENDIF.

IF AK EQ 'X'.
  CALL 'C_ENQUEUE' ID 'OPCODE' FIELD 'F'.
  CALL 'C_WRITE_SYSLOG_ENTRY' ID 'TYP' FIELD 'C'
                               ID 'KEY' FIELD 'GES'.
  CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
       EXPORTING
            TITEL        = 'Sperrverwaltung deaktivieren'
            TEXTLINE1    = 'Sperrverwaltung erfolgreich'
            TEXTLINE2    = 'deaktiviert.'
            START_COLUMN = 25
            START_ROW    = 6.
ENDIF.

IF NA EQ 'X'.
  CALL 'C_ENQUEUE' ID 'OPCODE' FIELD 'T'.
  CALL 'C_WRITE_SYSLOG_ENTRY' ID 'TYP' FIELD 'C'
                              ID 'KEY' FIELD 'GER'.
  CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
       EXPORTING
            TITEL        = 'Sperrverwaltung reaktivieren'
            TEXTLINE1    = 'Sperrverwaltung erfolgreich'
            TEXTLINE2    = 'reaktiviert.'
            START_COLUMN = 25
            START_ROW    = 6.
ENDIF.
