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.