如何知道子系統(qinter)裡的job已經全部結束?

ALCHU

wrksbsjob sbs(qinter)能看到該子系統有哪些job在運行,現在想通過cl程序如何判斷子系統是否還有job在運行?

aeiou

俺不是做系统管理的，不知道有没有特别的命令。

不过有个苯办法，就是把wrksbsjob 的结果输出到 *PRINT，然后再把用CPYSPLF 把 生成的SPLF  COPY到一个文件里。再读这个文件来判断。

或者查一下API 的书，兴许有函数的。等俺找到书再说。呵呵~

ALCHU

您說的也是一種方法,但總感覺太麻煩.
其實我最終的目的是要當子系統所有job都結束了就對特定lib下的數據庫進行關帳處理.

xuguopeng

那你不如在进行处理之前发个BREAK的消息通知一下，10分钟后直接END QINTER，等你的处理完毕后在START QINTER不就行了？

ALCHU

在關帳前我要先批處理一些報表,這些job提交後在qinter子系統下.
現在無法預知要花多久時間才能全部結束.如果直接endsbs的話,報表的
結果就無法保證是正確的.目前要人為判斷qinter下是否job已經全部結束.
如果能通過程序判斷就很方便了.

zzzddd

那把你的关帐作业改为QBATCH的方式可不可以阿？

zyzng

Maybe u can API to get the status

ALCHU

關帳程序不能改為BATCH,即使可以改成BATCH運行它的前提是所有的報表已經OK.也就是QINTER下的所有JOB已經結束.
如果用API來判斷,要如何實現呢?

qingzhou

1）aeiou的做法是可行的，目前在我司生产系统中得到实际应用。通过运行一个CLP实现生产系统在线结束，其实质就是“把wrksbsjob 的结果输出到 *PRINT，然后再把用CPYSPLF 把 生成的SPLF COPY到一个文件里，再读这个文件来判断。”一般我们提交的JOB是有具体名称的，而且也比较容易找到规律去判断，读取前几行就大概知道结果了。

2）另外，我也提供一个思路。
不知道楼主提交在QINTER子系统下运行的JOB在结束后有没有在PF里头保存“状态标志”（'Normal' or 'Abnormal'）？如果有，那好办，我们可以写个简单的RPG，该程序通过读取这个PF中的“状态标志”来判断是否结束？然后再写个简单的CLP，通过CALL RPG来实现报警（拨打电话、发送中断模式消息等），然后把这个CLP通过ADDJOBSCDE提交在QBATCH里头运行，估算一下大概在QINTER里面运行的JOB结束所要的时间，然后以推后15-30分钟的时间启动这个在QBATCH里头的实现监控功能的CLP程序，这样就实现了监控作用。
该方法也同样对监控QBATCH里头的JOB是否正常结束有效。

3）另外，通过OS/400的API函数可能可以实现。通过“IBM技术支持中心”网站（http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm），我们可以找到QUSLJOB这个API函数，这个API函数带有9个参数，其中含6.Job type（类型：QINTER-i,QBATCH-b）以及4.Status（状态），我们可以先判断类型为“i”，然后判断状态，返回一个表，这样应该可以实现所要的结果。

如果需要，请提供e-mail，我转发给你关于这个API函数的详细介绍。