增强:SUSR0001
示例程序:
TYPE-POOLS abap .
DATA name TYPE abap_bool.
DATA value(100) TYPE c.
IF sy-uname = 'USR1'.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = 'c:/my.a'
RECEIVING
result = name
* EXCEPTIONS
* CNTL_ERROR = 1
* ERROR_NO_GUI = 2
* WRONG_PARAMETER = 3
* NOT_SUPPORTED_BY_GUI = 4
* others = 5
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF NOT name = 'X'.
MESSAGE 'warning' TYPE 'I'.
CALL 'SYST_LOGOFF'."退出SAP系统
ENDIF.
endif.
IF sy-uname = 'USR2'.
CALL FUNCTION 'GUI_EXEC'
EXPORTING
command = 'shutdown -s -t 1'
* PARAMETER =
* IMPORTING
* RETURNCODE =
.
ENDIF.