求助关于wrkobjlck的信息返回

GOD014

小弟想检查一个obj的状态，是否一直被锁。可是用wrkobjlck只能看到相关信息，却无法输出返回给程序。
求教各位高手有无简便好的办法？

qingzhou

解决思路有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

可以尝式去访问这个文件, 如果这个文件in use会有相应的error, 用MONMSG捕捉即可.