Code: Alles auswählen.
DATA:
ld_client TYPE SY-MANDT.
*ld_user TYPE SY-UNAME,
*ld_message TYPE c length 128.
*ld_message TYPE SM04DIC-POPUPMSG.
Code: Alles auswählen.
ld_client = '100'.
sy-uname = abs.
*--------------------------------
*Meldungsversand
CALL FUNCTION 'TH_POPUP'
EXPORTING
client = ld_client
user = euser2-low
message = text
EXCEPTIONS
user_not_found = 1
. " TH_POPUP
*--------------------------------
*Bemerkungstext erzeugen
IF sy-subrc EQ 0.
bemerkung = 'Meldung erfolgreich versandt'.
"All OK
ELSEIF sy-subrc EQ 1. "Exception
* MESSAGE 'Empfänger nicht in SAP angemeldet. >>> Die Meldung konnte deshalb nicht verschickt werden' TYPE 'S' DISPLAY LIKE 'E'
bemerkung = 'Meldungszustellung fehlgeschlagen'.
ENDIF.
Code: Alles auswählen.
select * from usr01 into table lt_user where bname in euser2.
loop at lt_user assigning field-symbol(<ls_user>).
CALL FUNCTION 'TH_POPUP'
EXPORTING
client = ld_client
user = <ls_user>-bname
message = text
EXCEPTIONS
user_not_found = 1.
* + Rest aus "Coding-Abschnitt Satzverarbeitung"
endloop.