puedes enviar mensajes de esta manera
es algo que utilzamos por aqui en Rep. Dom.
saludos a todos, hay muchas cosas interesantes en esta pagina
bye
REPORT ZSYMENSAJES .
PARAMETERS: P_CLIENT LIKE SY-MANDT DEFAULT SY-MANDT,
P_USER LIKE SY-UNAME DEFAULT SY-UNAME,
P_MSG(128) DEFAULT 'MENSAJE...' 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, ' Finalizado.'.
ELSE.
WRITE:/ 'Usuário Inexistente!'.
ENDIF.
espero le sirva de mucho
|