Code: Alles auswählen.
CALL FUNCTION 'Z_RFC_START'
STARTING NEW TASK 'myTask'
DESTINATION 'XYZCLNT100'
EXPORTING
x_email = l_email
x_datum = l_datum
x_zeit = l_uzeit
x_mail = l_mail
EXCEPTIONS
OTHERS = 1.
Code: Alles auswählen.
** Restliche RFC-Verbindungen beenden
CALL FUNCTION 'TH_USER_LIST'
TABLES
list = lt_user.
DELETE lt_user WHERE bname <> x_user.
LOOP AT lt_user INTO ls_user
WHERE type = '32'.
CALL FUNCTION 'TH_DELETE_USER'
EXPORTING
user = ls_user-bname
client = sy-mandt
only_pooled_user = ' '
tid = ls_user-tid
EXCEPTIONS
authority_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP.