JCL 错误。我很确定语法是正确的,但不确定如何无错误地提交此作业
我收到 JCL 错误 838,我看到的错误消息是:“IEFC006I 位置参数必须在关键字参数之前指定”和“IEFC001I 过程 comp 已使用流内过程定义进行扩展”
这是我输入的内容:
//TSOZA601 JOB 3ES10G10000012,'TSOZA60',MSGCLASS=Q,MSGLEVEL=(1,1),
// NOTIFY=TSOZA60,CLASS=A,REGION=2M
//COMP PROC
//*****
//***** MAKE BACKUP
//*****
//S1 EXEC PGM=IEBCOPY
//SYSPRINT1 DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=(,CATLG),DSN=TSOZA60.ES10.BACK,
// LIKE=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOK1 IF (S1.RC=0) THEN
//*****
//***** COMPRESS DATASET
//*****
//S2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=OLD,DSN=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOKEND1 ENDIF
//IFOK2 IF (S2.RC=0) THEN
//*****
//***** COMPRESS SUCCESSFUL, DELETE BACKUP
//*****
//S3 EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE),DSN=TSOZA60.ES10.BACK
//IFOKEND2 ENDIF
// PEND
//FINAL EXEC COMP
//S1.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S1.SYSUT2 DD DSN=TSOZA60.ES10.BACK
//S2.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S2.SYSUT2 DD DSN=TS0ZA60.COPY.CNTL
//S3.DD1 DD DSN=TSOZA60.ES10.BACK
I'm getting JCL error 838 and the error messages I'm seeing are: "IEFC006I Positional parameters must be specified before keyword parameter" and "IEFC001I Procedure comp was expanded using instream procedure definiti"
This is what I've typed up:
//TSOZA601 JOB 3ES10G10000012,'TSOZA60',MSGCLASS=Q,MSGLEVEL=(1,1),
// NOTIFY=TSOZA60,CLASS=A,REGION=2M
//COMP PROC
//*****
//***** MAKE BACKUP
//*****
//S1 EXEC PGM=IEBCOPY
//SYSPRINT1 DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=(,CATLG),DSN=TSOZA60.ES10.BACK,
// LIKE=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOK1 IF (S1.RC=0) THEN
//*****
//***** COMPRESS DATASET
//*****
//S2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=OLD,DSN=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOKEND1 ENDIF
//IFOK2 IF (S2.RC=0) THEN
//*****
//***** COMPRESS SUCCESSFUL, DELETE BACKUP
//*****
//S3 EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE),DSN=TSOZA60.ES10.BACK
//IFOKEND2 ENDIF
// PEND
//FINAL EXEC COMP
//S1.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S1.SYSUT2 DD DSN=TSOZA60.ES10.BACK
//S2.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S2.SYSUT2 DD DSN=TS0ZA60.COPY.CNTL
//S3.DD1 DD DSN=TSOZA60.ES10.BACK
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论