Ansicht
Dokumentation
03739 - FW: ABAP to snd msg to specific user ID
BAL Application Log Documentation SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3upThis documentation is copyright by SAP AG.
FW: ABAP to snd msg to specific user ID
> -----Original Message-----
> From: Robert Clay [mailto:rclayZk...]
> Sent: Tuesday, May 23, 2000 10:49 AM
> To: 'sap400Zm...'
> Subject: ABAP to snd msg to specific user ID
>
>
> Here's a little ABAP to send a message to a specific user:
>
> REPORT ZBC_PRIVATE_MESSAGE .
> **********************************************************
> * This program sends a message in a popup window to the
> * screens of the logged on user. This method is better
> * than the SAP system message function, because the popup
> * window appears immediately (no dialog step is required),
> * and better than the express mail method (the user can
> * not avoid it because there is no dialog step).
> **********************************************************
>
> PARAMETERS:
> P_MSG(128) DEFAULT ' ' LOWER CASE,
> P_CLIENT LIKE SY-MANDT DEFAULT SY-MANDT,
> P_USER LIKE SY-UNAME DEFAULT SY-UNAME.
>
> 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:/ 'Message delivered to ', P_USER, 'successfully.'.
> ELSE.
> WRITE:/ 'User does not exist!'.
> ENDIF.
>
> ***************************************************************
> I set up the selection texts like this:
>
> P_CLIENT Client
> P_MSG Message to send (45 chars max)
> P_USER User ID to send to
> *****************************************************************
>
> Regards,
>
> Robert Clay
> Database/Systems Administrator
> Kerr Drug
> 2522 South Tri-Center Blvd.
> Durham, North Carolina 27713
> Telephone: 919-544-3896 Fax: 919-544-3796
> rclayZk...
>
>
>
>
>
>
[Non-text portions of this message have been removed]
Durban Tours - Südafrika Safari
PERFORM Short Reference ROGBILLS - Synchronize billing plans
This documentation is copyright by SAP AG.
Length: 3084 Date: 20240425 Time: 111902 sap01-206 ( 2 ms )
