[jmadera]

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