SBMJOB与SRVPGM/MODULE 程序冲突的问题

发布于 2022-08-30 22:15:47 字数 208 浏览 15 评论 5

我用程序A调用CL(ACL) ， ACL里又用SBMJOB来调B 这时B里用CALLP个*SRVPGM/*MODULE 程序
问题出现勒。。。
CL中的SBMJOB与程序BJ城的*SRVPGM/*MODULE 程序不知道什么原因冲突导致B程序无法正常运行。
这是怎么回事儿。。。要如何解决？

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

君勿笑 2022-09-05 01:11:05

A 或者 ACL 都是交互作业，b程序是批作业，作业环境是不一样的，例如libary list,activivation group,要检查一下重新设置
最简单的不要提交作业，太复杂了

回复收藏 0

随波逐流 2022-09-05 00:51:29

顶起来。。。大家快来回答哇。。。。。。。

回复收藏 0

原谅我要高飞 2022-09-04 23:08:46

本帖最后由 renle2007 于 2010-03-31 09:06 编辑

回复 3# guozhy

那我发下冲突的部分
A中
EVAL    W@PGOM  = 'B'
EVAL    W@0001  = P@0001

EVAL    W@0002  = P@0002
EVAL    W@SRFNO = W@CHFNO
EVAL    W@JOBID = *BLANK
EVAL    W@RENCD = *BLANK

CALL    'CL'
PARM                   W@PGOM
PARM                   W@0001

PARM                   W@0002
PARM                   W@SRFNO
PARM                   W@JOBID
PARM                   W@RENCD

CL中
定义部分不写勒
SBMJOB    CMD(CALL PGM(&PGOM) PARM(&P0001 &TIME +
         &SRFNO )) JOB(&PGOM) MSGQ(*WRKSTN)

RCVMSG    MSGDTA(&MSGDAT) MSGID(&MSGID)
IF  (&MSGID *EQ 'CPC1221') THEN(DO)
CHGVAR &JOBID VALUE(&MSGDAT)
CHGVAR &RENCD VALUE('1')
ENDDO
IF  (&MSGID *NE 'CPC1221') THEN(DO)
CHGVAR &JOBID VALUE(' ')
CHGVAR &RENCD VALUE('E')
ENDDO
ENDPGM

B中(只要一CALLP サビス程序就出问题)
EVAL    P@D = W@P
EVAL    P@S= CKYAS010
TIME                   P@S

CALLP    CKBAB070(P@D : P@S : P@S : P@STYPE :
               P@SFLG : P@CMTS : P@ALOG : P@RTN)
COMMIT

回复收藏 0