JCL 错误。我很确定语法是正确的,但不确定如何无错误地提交此作业

发布于 2025-01-12 11:57:26 字数 1260 浏览 1 评论 0原文

我收到 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 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文