论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-11-16 23:09 |只看该作者 |倒序浏览

各位，我遇到一个问题急待解决，如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
   我现在想写个程序，当程序检测到某个错误信息时便通知一个用户，无论他在哪里上都好，我都可以通知他！比如说吧，一个用户名为USER的用户在一部机器的虚拟终端上登陆，WORKSTATION名为ABC,同时又在另一部终端上登陆，WORKSTATION名为JKLMN,或者同时他还会在其他终端登陆，那么我怎么才可以确保信息都发往这个用户所在的所有终端呢？如果我知道这些终端名，那我可以利用CLP中的命令
SNDBRKMSG MSG(&TEXT) TOMSGQ('ABC')
SNDBRKMSG MSG(&TEXT) TOMSGQ('JKLMN')
来发给这个用户，但是我该怎样获得这些终端号呢？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
   以上就是我的问题，希望各位高手不吝赐教，先感谢了！

文库|博客

xuguopeng

富足长乐

论坛徽章:: 0

2楼 [报告]

发表于 2004-11-17 09:34 |只看该作者

请教高手解决问题……！

可以SNDPGMMSG啊凡是执行这个程序的人都能看到

或者RTVJOBA JOB（&JOB）

然后SNDBRKMSG TOMSGQ（&JOB）

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

静静的顿河

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2004-11-17 10:08 |只看该作者

请教高手解决问题……！

PGM
DCL       VAR(&JOB) TYPE(*CHAR) LEN(10)
RTVJOBA JOB(&JOB)
SNDBRKMSG  MSG(' エラーメッセージ ') TOMSGQ(&JOB)
ENDPGM

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

layyf

稍有积蓄

论坛徽章:: 0

4楼 [报告]

发表于 2004-11-17 10:30 |只看该作者

请教高手解决问题……！

I have solution, if it can fulfil you.

using SNDUSRMSG/SNDMSG, this CL send the message to user's message queue, when the first session login, this message will display, but when you login with multi-session, the message queue was allocate by first job, it would not display automatic, you may include DSPMSG in you initial program, so that to view it every time login.