Sending sap-messages

Question

hi,
I would like to send sap-messages (popup) to sap-users (not in business workplace). I can do this with transaction SM02. Now I would send a message to specific sap-users -> not to all sap-users. How is it possible? Is it possible?
thanks
mike

Answer 1

Hi,
   this is how you detect connected users:
DATA: BEGIN OF usr_tabl OCCURS 0.
        INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD l_opcode
                 ID 'TAB' FIELD usr_tabl-sys.
SORT usr_tabl.
DELETE ADJACENT DUPLICATES FROM usr_tabl COMPARING bname.
     This is how you send a message
FORM popup_msg.
  DATA: l_msg LIKE sm04dic-popupmsg,
        l_ret TYPE c.
  PERFORM get_message CHANGING l_msg l_ret.
  IF l_ret = 'A'.            "User cancelled the message
    EXIT.
  ENDIF.
  Get the message text
  LOOP AT mytable WHERE selection = 'X'.
    CALL FUNCTION 'TH_POPUP'
         EXPORTING
              client         = mytable-mandt
              user           = mytable-bname
              MESSAGE        = l_msg
         EXCEPTIONS
              user_not_found = 1
              OTHERS         = 2.
    IF sy-subrc <> 0.
      WRITE: 'User ', mytable-bname, 'not found.'.
    ENDIF.
  ENDLOOP.
  IF sy-subrc <> 0.
    MESSAGE ID 'AT' TYPE 'E' NUMBER '315' WITH
          'No user selected!'.
    EXIT.
  ENDIF.
ENDFORM.
    Message
FORM get_message CHANGING p_l_msg LIKE sm04dic-popupmsg
                          p_returncode TYPE c.
  DATA: BEGIN OF fields OCCURS 1.
          INCLUDE STRUCTURE sval.
  DATA: END OF fields,
        returncode TYPE c.
  fields-tabname = 'SM04DIC'.
  fields-fieldname = 'POPUPMSG'.
  fields-fieldtext = 'Message :'.
  CONCATENATE ' - Msg from' sy-uname '.' INTO fields-value
        SEPARATED BY space.
  APPEND fields.
  CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING
            popup_title = 'Supply the popup message'
       IMPORTING
            returncode  = p_returncode
       TABLES
            fields      = fields.
  IF p_returncode = 'A'.
    EXIT.
  ELSE.
    READ TABLE fields INDEX 1.
    p_l_msg = fields-value.
  ENDIF.
ENDFORM.