Chinaunix

标题: 求助关于wrkobjlck的信息返回 [打印本页]

作者: GOD014 时间: 2008-08-31 11:12
标题: 求助关于wrkobjlck的信息返回
小弟想检查一个obj的状态，是否一直被锁。可是用wrkobjlck只能看到相关信息，却无法输出返回给程序。
求教各位高手有无简便好的办法？

作者: qingzhou 时间: 2008-08-31 11:44
解决思路有2种：

1。从监控JOB角度

1）创建QTEMP/ACTJOB临时文件；
2）WRKACTJOB OUTPUT(*PRINT) SBS(your_sbs)输出SPLF文件，然后CPYSPLF拷贝SPLF到QTEMP/ACTJOB中；
3）RCVF读取ACTJOB文件，当满足JOB STATUS=？？时，传入参数或者SNDDST发送邮件给管理员。

2。从监控OBJECT角度

1）创建QTEMP/OBJLCK临时文件；
2）WRKOBJLCK OBJ(LIB/PF) OBJTYPE(*FILE) OUTPUT(*PRINT)输出SPLF，然后CPYSPLF拷贝到QTEMP/OBJLCK中；
3）RCVF读取OBJLCK文件，当满足Object Lock=*EXCLRD，传入参数或者SNDDST发送给邮件管理员。

作者: IBMever 时间: 2008-08-31 15:44
可以尝式去访问这个文件, 如果这个文件in use会有相应的error, 用MONMSG捕捉即可.

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)