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 = 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.