用户存在性检查
IF 用戶名 IS NOT INITIAL .
??? CALL FUNCTION 'USER_EXISTENCE_CHECK'
????? EXPORTING
??????? USER_NAME?????????? = 用戶名
????? EXCEPTIONS
??????? USER_NAME_NOT_FOUND = 1
??????? OTHERS????????????? = 2.
??? IF SY-SUBRC <> 0.
????? SET CURSOR FIELD '用戶名'.
????? MESSAGE E012 WITH 用戶名.
??? ELSE.
??? CALL FUNCTION 'USER_EXISTENCE_CHECK'
????? EXPORTING
??????? USER_NAME?????????? = 用戶名
????? EXCEPTIONS
??????? USER_NAME_NOT_FOUND = 1
??????? OTHERS????????????? = 2.
??? IF SY-SUBRC <> 0.
????? SET CURSOR FIELD '用戶名'.
????? MESSAGE E012 WITH 用戶名.
??? ELSE.
總結