Chinaunix

标题: SBMJOB递交的作业能取消吗？ [打印本页]

作者: V01619 时间: 2013-05-23 14:14
标题: SBMJOB递交的作业能取消吗？
由于业务需要，一个交互程序需要在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 时间: 2013-05-23 15:41
你在开发ATM吗？

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

作者: liang118c2 时间: 2013-05-23 17:03
为什么不直接在当前的pgm里面用DLYJOB命令?

作者: passthru 时间: 2013-05-23 23:22

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

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

作者: V01619 时间: 2013-05-24 16:44

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

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

作者: passthru 时间: 2013-05-25 10:32
用qapi检测交互作业，如果在五分钟内有active，就提交sbmjob；如果没有active，就进入下一个间隔的检测。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)