Client에 상관없이 현재 서버에 접속하여 있는 모든 User의 화면에
메세지를 출력하는 프로그램입니다.

REPORT ztest.

PARAMETERS: p_msg(100).

DATA: opcode TYPE x VALUE 2,
          message(128).

DATA: BEGIN OF usr_tabl OCCURS 10.
             INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.

CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode
                 ID 'TAB' FIELD usr_tabl-*sys*.

CONCATENATE p_msg '(' sy-uname ')' INTO message.

LOOP AT usr_tabl.
    CALL FUNCTION 'TH_POPUP'
         EXPORTING
              client  = usr_tabl-mandt
              user    = usr_tabl-bname
              MESSAGE = message
         EXCEPTIONS
              user_not_found = 1.
ENDLOOP.