Informação fornecida por Humberto Diamante Júnior.
Envio de mensagens por Pop-Up para os usuários logados ao sistema (não SAPOficce)
REPORT ZMSPOPUP.
***************************************************************
* Este programa envia uma mensagem em uma janela tipo "popup" *
* para os usuários logados no sistema. Esse método é melhor *
* do que o standard da SAP, porque a janela aparece *
* imediatamente (nao e necessario um "Dialog Step) *
***************************************************************
PARAMETERS: P_CLIENT LIKE SY-MANDT DEFAULT SY-MANDT,
P_USER LIKE SY-UNAME DEFAULT SY-UNAME,
P_MSG(128) DEFAULT 'Escreva aqui...' LOWER CASE.
DATA: OPCODE_SEND_POP_UP(1) TYPE X VALUE 31,
MSG_LENGTH LIKE SY-INDEX,
LOC_CUT_BLANKS TYPE X VALUE 1.
DESCRIBE FIELD P_MSG LENGTH MSG_LENGTH.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE_SEND_POP_UP
ID 'CLIENT' FIELD P_CLIENT
ID 'USR' FIELD P_USER
ID 'MSG' FIELD P_MSG
ID 'MSG_LEN' FIELD MSG_LENGTH
ID 'CUT_BLANKS' FIELD LOC_CUT_BLANKS.
IF SY-SUBRC = 0.
WRITE:/ 'Mensagem enviada para ', P_USER, ' com sucesso.'.
ELSE.
WRITE:/ 'Usuário Inexistente!'.
ENDIF.
