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 = 0. call function 'TH_POPUP' exporting client = ustb-mandt user = ustb-uname message = i_message * message_len = 0 * cut_blanks = ' ' exceptions user_not_found = 1 others = 2 . if sy-subrc <> 0. * implement suitable error handling here endif. endif. clear:ustb,zusrlist. endloop. ENDFUNCTION.
