论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-03-24 16:24 |只看该作者 |倒序浏览

在CLP中如果监听一个SBMJOB结束
并且在CLP中如何将一个HOLD的SBMJOB给RELEASE

望高手指点，谢谢！

第一次请教问题，没有悬赏积分，还望高手指点。

文库|博客

mj1011

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2008-03-24 16:50 |只看该作者

sbmjob 结束 sndpgmmsg

monmsg 可以实现

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

qingzhou

广告杀手

论坛徽章:: 0

3楼 [报告]

发表于 2008-03-24 20:36 |只看该作者

1。
CPC1236：表示JOB已经submit
CPF1124：表示JOB已经start
CPF1164：表示JOB已经end

MONMSG MSGID(CPF1164) EXEC(DO)
...（监控到对应MSGID采取什么措施）
ENDDO

2。CLP中当监控到HOLD的JOB，可以传入JOB的name,job number执行release.

RLSJOBSCDE JOB(&JOB) ENTRYNBR(&JOBNUm)

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

rewin-y.zeng

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2008-03-25 09:46 |只看该作者

回复 #3 qingzhou 的帖子

SBMJOB    CMD(CALL PGM(*LIBL/A)) JOB(A) +
         HOLD(*YES)
SBMJOB    CMD(CALL PGM(*LIBL/B)) JOB(B) +
         HOLD(*YES)
SBMJOB    CMD(CALL PGM(*LIBL/C)) JOB(C) +
         HOLD(*YES)
RLSJOB    JOB(A)
RLSJOB    JOB(B)
MONMSG    MSGID(CPF1164) EXEC(DO)
RLSJOB    JOB(C)
ENDDO

1、请问这个MONMSG监视到的是哪个JOB的END?
2、还有一点就是我现在把进JOB采用SUBMIT的方式丢出，有可能就是JOB没有运行完，CLP已经结束了
3、我的问题就是，我想在一个CLP中SBMJOB三个JOB,然后等另外两个JOB其中的一个执行完毕后，再RELEASE第三个JOB.请问我该怎么控制

谢谢~

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

digitalchina

稍有积蓄

论坛徽章:: 0

5楼 [报告]

发表于 2008-03-25 10:23 |只看该作者

Message ID . . . . . . . . . : CPF1164
Message file . . . . . . . . : QCPFMSG
Library  . . . . . . . . . : QSYS

Message . . . . : Job &3/&2/&1 ended on &5 at &4; &6 seconds used; end code
  &8 &13.
Cause . . . . . : Job &3/&2/&1 completed on &5 at &4 after it used &6
  seconds processing unit time.  The job had ending code &8. The job ended
  after &7 routing steps with a secondary ending code of &9.  The job ending
  codes and their meanings are as follows:
   0 - The job completed normally.
10 - The job completed normally during controlled ending or controlled

所以 MONMSG    MSGID(CPF1164)  可以判断JOB 和状态.

&1 JAJOB Job name Character (10)
&2 JAUSER Job user Character (10)
&3 JANBR Job number Zoned (6,0)

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

digitalchina

稍有积蓄

论坛徽章:: 0

6楼 [报告]

发表于 2008-03-25 10:32 |只看该作者

&A-END,0

SBMJOB    CMD(CALL PGM(*LIBL/A)) JOB(A) +
         HOLD(*YES)
SBMJOB    CMD(CALL PGM(*LIBL/B)) JOB(B) +
         HOLD(*YES)
SBMJOB    CMD(CALL PGM(*LIBL/C)) JOB(C) +
         HOLD(*YES)
RLSJOB    JOB(A)
RLSJOB    JOB(B)

NEXT:
IF &A-END *EQ 1
MONMSG    MSGID(CPF1164) EXEC(DO)
RCVMSG MSGTYPE(*LAST) MSG(&MSG) MSGID(CPF1164)
IF &3 *EQ A *AND &8 *EQ 0
CHGVAR(&A-END,1)
GO TO  NEXT

RLSJOB    JOB(C)
ENDDO

[ 本帖最后由 digitalchina 于 2008-3-25 11:44 编辑 ]