Asked the question of updates
I would like to do a MSG SEND to a user, the first time allows users to see this MSG
If SNDBRKMSG, and if this user is not> How can we live like this when users landing time for the first time this information to display pop-up to the user? ? ? : Em06:: em06:
Zzzddd back in :2005-03-21 15:27:19 Changed its usrprf to his Delivery...... DLVRY * BREAK, and this can be!
Xuguopeng back in :2005-03-21 17:09:53 I have tried that does not work
If the users in the system inside him, he will immediately see SNDBRKMSG
If he can not> DSPMSG can> . . . . . . . .
Ginger back to :2005-03-21 18:49:08 [Quote: 0cd0f247ca = "zzzddd"] changed its usrprf to his Delivery...... DLVRY * BREAK, and this can be! [/ Quote: 0cd0f247ca]
This changed, after sndmsg indeed can, but the problem has come, and all the information will pop up, such as the end of the MSG JOB, it will Henfan ~
PS: sndbrkmsg dual sent to the USR did not find the option ah, it seems that> TKS!
Mamei back in :2005-03-22 09:22:45 Some time ago, I Gudao this,
Write a CL
I go back to the source you refer to!
Xuguopeng back in :2005-03-22 10:08:19 I would like to send MSG can set the Severity code? ?
If you can set it> . .
Zzzddd back in :2005-03-22 11:03:28 Should be able to! You can definition of news!
Xuguopeng back in :2005-03-22 11:34:38 Know that the information also to the construction of MSGF
YZG back in :2005-03-23 12:04:03 I did a test.
|
|
YZG back in :2005-03-23 12:16:28 Step 1: The initial modify user login procedures
Initial code is as follows:
/************************************************* * * /
/ * CLP - INTPGM - INITIAL PROGRAM * /
/************************************************* * * /
PGM
DCL VAR (& MSGQ) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGQLIB) TYPE (* CHAR) LEN (10)
RTVUSRPRF MSGQ (& MSGQ) MSGQLIB (& MSGQLIB)
CHGMSGQ MSGQ (& MSGQLIB / & MSGQ) DLVRY (* BREAK) +
PGM (YAOLIB / RCVBRKMSG)
CALL PGM (QSYS / QCMD)
RETURN
ENDPGM
|
| YZG back in :2005-03-23 12:23:28 Step 2: A MESSAGE acceptance procedure
Code as follows:
/ * ************************************************ * * /
/ * CLP - RCVBRKMSG - RECEIVE BREAK MESSAGE * /
/ * ************************************************ * * /
PGM PARM (& & MSGQLIB & MSGKEY MSGQ)
DCL VAR (& MSGQ) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGQLIB) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGKEY) TYPE (* CHAR) LEN (4)
DCL VAR (& MSGDTA) TYPE (* CHAR) LEN (200)
DCL VAR (& MSGID) TYPE (* CHAR) LEN (7)
DCL VAR (& MSGF) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGFLIB) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGTXT) TYPE (* CHAR) LEN (200)
DCL VAR (& BLANK) TYPE (* CHAR) LEN (78)
DCL VAR (& INDEX) TYPE (* DEC) LEN (2 0) VALUE (78)
MONMSG MSGID (CPF0000) EXEC (GOTO CMDLBL (ERROR))
/ * ************************************************ * * /
/ * RECEIVE BREAK MESSAGE * /
/ * ************************************************ * * /
RCVMSG MSGQ (& MSGQLIB / & MSGQ) +
MSGKEY (& MSGKEY) +
RMV (* YES) +
MSG (& MSGTXT) +
MSGDTA (& MSGDTA) +
MSGID (& MSGID) +
MSGF (& MSGF) +
SNDMSGFLIB (& MSGFLIB)
/ * ************************************************ * * /
/ * RECEIVE BREAK MESSAGE * /
/ * ************************************************ * * /
IF COND (& MSGID = '') THEN (DO)
CHGVAR VAR (& MSGID) VALUE ( 'CPF9898')
CHGVAR VAR (& MSGFLIB) VALUE ( 'QSYS')
CHGVAR VAR (& MSGF) VALUE ( 'QCPFMSG')
CHGVAR VAR (& MSGDTA) VALUE (& MSGTXT)
ENDDO
/ * ************************************************ * * /
/ * AS STATUS MESSAGE TO RESEND * /
/ * ************************************************ * * /
LOOP: CHGVAR VAR (& MSGDTA) VALUE (% SST (& BLANK & INDEX 1) +
* CAT & MSGTXT)
SNDPGMMSG MSGID (& MSGID) +
MSGF (& MSGFLIB / & MSGF) +
MSGDTA (& MSGDTA) +
TOPGMQ (* EXT) +
MSGTYPE (* STATUS)
CHGVAR VAR (& INDEX) VALUE (& INDEX - 2)
IF COND (& INDEX * GT 0) THEN (GOTO CMDLBL (LOOP))
SNDPGMMSG MSGID (& MSGID) +
MSGF (& MSGFLIB / & MSGF) +
MSGDTA (& MSGTXT) +
TOPGMQ (* EXT) +
MSGTYPE (* STATUS)
RETURN
ERROR: RCVMSG MSGDTA (& MSGDTA) +
MSGID (& MSGID) +
MSGF (& MSGF)
SNDPGMMSG MSGID (& MSGID) +
MSGF (& MSGF) +
MSGDTA (& MSGDTA) +
MSGTYPE (* ESCAPE)
ENDPGM
YZG back in :2005-03-23 12:25:59 Step 3: the establishment of CMD
Code as follows:
/ * ************************************************ ************* * /
/ * COMMAND - SNDCMSG - SEND COLOR MESSAGE * /
/ * * /
/ * COPYRIHGT (C) 2005 YAO ZHONGGUANG. ALL RIGHTS RESERVED * /
/ * ************************************************ ************* * /
CMD PROMPT ( 'Send Colored Message')
PARM KWD (USER) +
TYPE (* NAME) +
LEN (10) +
PROMPT ( 'User')
PARM KWD (MSG) +
TYPE (* CHAR) +
LEN (80) +
PROMPT ( 'Message')
PARM KWD (COLOR) +
TYPE (* CHAR) +
LEN (1) +
RSTD (* YES) +
DFT (* WHITE) +
SPCVAL ((* GREEN X'20 ') +
(* WHITE X'22 ') +
(* RED X'28 ') +
(* TURQUOISE X'30 ') +
(* YELLOW X'32 ') +
(* PINK X'38 ') +
(* BLUE X'3A ')) +
PROMPT ( 'Color')
YZG back in :2005-03-23 12:27:06 Step 4: CMD established by the implementation of the CLP
Code as follows:
/ * ************************************************ ************* * /
/ * CLP - SNDCMSGC - SEND COLOR MESSAGE * /
/ * * /
/ * COPYRIHGT (C) 2005 YAO ZHONGGUANG. ALL RIGHTS RESERVED * /
/ * ************************************************ ************* * /
PGM PARM (MSG & & & USER COLOR)
DCL VAR (& USER) TYPE (* CHAR) LEN (10)
DCL VAR (& MSG) TYPE (* CHAR) LEN (80)
DCL VAR (& COLOR) TYPE (* CHAR) LEN (1)
DCL VAR (& MSGF) TYPE (* CHAR) LEN (10)
DCL VAR (& MSGID) TYPE (* CHAR) LEN (7)
DCL VAR (& MSGDTA) TYPE (* CHAR) LEN (80)
DCL VAR (& MSGTXT) TYPE (* CHAR) LEN (82)
DCL VAR (& WHITE) TYPE (* CHAR) LEN (1) VALUE (X'22 ')
DCL VAR (& NORMAL) TYPE (* CHAR) LEN (1) VALUE (X'20 ')
MONMSG MSGID (CPF0000) EXEC (GOTO CMDLBL (ERROR))
/ * ************************************************ ************* * /
/ * * /
/ * ************************************************ ************* * /
CHKOBJ OBJ (& USER) OBJTYPE (* USRPRF)
CHGVAR VAR (& MSGTXT) VALUE (& MSG)
IF COND (& COLOR * NE & WHITE) THEN (DO)
CHGVAR VAR (& MSGTXT) +
VALUE (& COLOR & MSGTXT * TCAT)
ENDDO
SNDMSG MSG (& MSGTXT) TOUSR (& USER)
RETURN
/ * ************************************************ ************* * /
/ * * /
/ * ************************************************ ************* * /
ERROR: RCVMSG MSGDTA (& MSGDTA) +
MSGID (& MSGID) +
MSGF (& MSGF)
SNDPGMMSG MSGID (& MSGID) +
MSGF (& MSGF) +
MSGDTA (& MSGDTA) +
MSGTYPE (* ESCAPE)
ENDPGM
| | | | | | | |
|
| | |
|
|
|
| | | | | | | | | | | | | | | |
