正文
ABAP-消息发布
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
FUNCTION ZSDI0009_DO_INFOMESSAGE.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(I_MESSAGE) TYPE SM04DIC-POPUPMSG
*" TABLES
*" USTB STRUCTURE ZSDS018_DO_MSGUSER
*"----------------------------------------------------------------------data:zlist like standard table of uinfo with header line,
zusrlist like standard table of usrinfo with header line.call function 'TH_USER_LIST'
tables
list = zlist
usrlist = zusrlist .loop at ustb.
read table zusrlist with key mandt = ustb-mandt bname = ustb-uname.
if sy-subrc = .
call function 'TH_POPUP'
exporting
client = ustb-mandt
user = ustb-uname
message = i_message
* message_len = 0
* cut_blanks = ' '
exceptions
user_not_found =
others = .
if sy-subrc <> .
* implement suitable error handling here
endif.
endif.
clear:ustb,zusrlist.
endloop.ENDFUNCTION.