求助關(guān)于wrkobjlck的信息返回

GOD014

小弟想檢查一個obj的狀態(tài)，是否一直被鎖。可是用wrkobjlck只能看到相關(guān)信息，卻無法輸出返回給程序。
求教各位高手有無簡便好的辦法？

qingzhou

解決思路有2種：

1。從監(jiān)控JOB角度

1）創(chuàng)建QTEMP/ACTJOB臨時文件；
2）WRKACTJOB OUTPUT(*PRINT) SBS(your_sbs)輸出SPLF文件，然后CPYSPLF拷貝SPLF到QTEMP/ACTJOB中；
3）RCVF讀取ACTJOB文件，當(dāng)滿足JOB STATUS=？？時，傳入?yún)��?shù)或者SNDDST發(fā)送郵件給管理員。

2。從監(jiān)控OBJECT角度

1）創(chuàng)建QTEMP/OBJLCK臨時文件；
2）WRKOBJLCK OBJ(LIB/PF) OBJTYPE(*FILE) OUTPUT(*PRINT)輸出SPLF，然后CPYSPLF拷貝到QTEMP/OBJLCK中；
3）RCVF讀取OBJLCK文件，當(dāng)滿足Object Lock=*EXCLRD，傳入?yún)��?shù)或者SNDDST發(fā)送給郵件管理員。

IBMever

可以嘗式去訪問這個文件, 如果這個文件in use會有相應(yīng)的error, 用MONMSG捕捉即可.