用户登陆后的用户出口

来源：互联网发布：深圳市海关数据分中心编辑：程序博客网时间：2024/05/16 08:46

增强：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.