SBMJOB递交的作业能取消吗？

V01619

由于业务需要，一个交互程序需要在5分钟以内，检查用户是否进行了处理。
如果用户没有处理，则程序退出。如果用户进行了业务处理，则程序不退出。
现在编写了一个CL程序，在程序被调用时执行，ENDJOB命令延迟5分钟后运行。
这样可以实现程序执行5分钟后终止，不过用户进行了业务处理后，程序仍然会在5分钟后结束。
是否有办法，在用户执行了业务处理后，取消之前的ENDJOB作业？

DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                  
DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                 
DCL        VAR(&NBR) TYPE(*CHAR) LEN(6)                  
DCL        VAR(&CHR) TYPE(*CHAR) LEN(10)                  
RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR) CHRIDCTL(&CHR)
SBMJOB     CMD(ENDJOB JOB(&NBR/&USER/&JOB) DELAY(300)) +   
             JOB(MJOBP3C) JOBD(QGPL/QBATCH2) +            
             JOBQ(QGPL/QBATCH2) INLLIBL(QGPL)            

george251

你在开发ATM吗？

george251

我没开发过此类事务处理程序。 以下纯属臆想：
1. 在交互程序里写一个共通模块A，功能是发送当前系统时间，每次从画面返回程序时调用。
2. 在某个地方（DataQ之类）接受A发送的最新系统时间。
3. 运行一个伴随的程序，逻辑就是读取DataQ里的A发送的时间与当前系统时间相减，若大于等于5min则中止交互程序。

liang118c2

为什么不直接在当前的pgm里面用DLYJOB命令?

passthru

V01619 发表于 2013-05-23 14:14
由于业务需要，一个交互程序需要在5分钟以内，检查用户是否进行了处理。
如果用户没有处理，则程序退出。如 ...

逻辑都错误了。delay期间，系统是不允许插入其它作业的。

V01619

passthru 发表于 2013-05-23 23:22
逻辑都错误了。delay期间，系统是不允许插入其它作业的。

能不能请教下，用什么办法可以实现上述需求？

passthru

用qapi检测交互作业，如果在五分钟内有active，就提交sbmjob；如果没有active，就进入下一个间隔的检测。