as400上如何监控进程的执行

aeou

一个进程作业已经提交执行，想有种方法检查该作业是否退出了，若退出则自动再启动该进程继续执行，不知道有什么方法实现，请高人指点！
类似unix中，可以这样实现：
写个简单的shell脚本，通过ps -ef|grep xxx去抓取需要监控的进程，若发现系统中无此进程存在了，则直接调用启动该进程
as400上如何实现呢？

passthru

用QAPI进行编程，监控提交在子系统下的job。如果这个job没有提交，就再用sbmjob提交。

aeou

我是初学者，能否给详细说说啊

aeou

网上搜来搜去，看到貌似rtvjoba可以解决这个问题
有没有清楚的朋友，帮忙写个cl脚本
搜索CU里面有这样写的：

PGM                                                                                 
DCL        VAR(&WRKSTD) TYPE(*CHAR)                                                
RTVJOBA   JOB(&WRKSTD)                                                              
SNDBRKMSG MSG(' 会员报告运行完毕 ') TOMSGQ(&WRKSTD) MSGTYPE(*INFO) CCSID(935)
ENDPGM

WRKSTD是带进来的变量？比如我的程序名叫做dotest，运行后，在wrkactjob中可以看到dotest的job作业，那么是否就是将这个作为变量传入？

论坛里面有人说：
rtvjoba endsts ='1' 既结束了， endsts='0' 运行
这个又是如何判断？

qingzhou

1. 
   
2. 
   
3.                         Retrieve Job Attributes (RTVJOBA)                       
   
4.                                                                                 
   
5. Type choices, press Enter.                                                     
   
6.                                                                                 
   
7. CL var for JOB          (10) . . > &WRKSTD       Character value               
   
8. CL var for USER         (10) . .                 Character value               
   
9. CL var for NBR           (6) . .                 Character value               
   
10. CL var for CURUSER      (10) . .                 Character value               
    
11. CL var for TYPE          (1) . .                 Character value               
    
12. CL var for SUBTYPE       (1) . .                 Character value               
    
13. CL var for SYSLIBL     (165) . .                 Character value               
    
14. CL var for CURLIB       (10) . .                 Character value               
    
15. CL var for USRLIBL    (2750) . .                 Character value               
    
16. CL var for ASPGRP       (10) . .                 Character value               
    
17. CL var for LOGLVL        (1) . .                 Character value               
    
18. CL var for LOGSEV      (2 0) . .                 Number                        
    
19. CL var for LOGTYPE      (10) . .                 Character value               
    
20. CL var for LOGCLPGM     (10) . .                 Character value               
    
21. CL var for LOGOUTPUT    (10) . .                 Character value               
    
22. CL var for JOBMSGQMX   (2 0) . .                 Number                        
    
23.                                                                         More...
    
24. F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display   
    
25. F24=More keys                                                                  
    
26. Command RTVJOBA not allowed in this setting.                                   
    
27. 
    

复制代码

可到400命令行调试参数,RTVJOBA JOB(&WRKSTD)是返回JOB NAME,

CL var for ENDSTS        (1) . . ENDSTS

Help:
A value of 1 indicates that either the system, the subsystem in which the job is running, or the job itself is being canceled; a 0 indicates no controlled cancellation is being performed.

xjromance

2楼的方法 调用 QUSRJOBI 监控作业状态

trust2001

2楼指的QAPI 需要去查查文档 忘了有哪个内置的程序可以调用

3楼的方法是可以自己用程序去交换信息 这个就需要自己去实现 比如：A submit B出来，B在某个地方记录下自己job的信息，A去这个地方获取B的信息，如果约定的地方没有B的信息，表示B没submit出来。。。等等。。。

可以去研究研究，需要自己用程序实现这些逻辑

tomroom

若只是测试 最简单方法，可以在CLP里写循环，循环call 就一直执行。 手动wrkactjob  end该作业。 楼上方法都高级，但复杂。若是测试机器上测试可以用这个方法

dn2010

http://www.google.com/search?hl= ... 10l0l0l0l0l0l0ll0l0