我正在使用下面的 jcl 代码创建 pds,但出现错误
000001 //HERC01A JOB (COBOL),
000002 // 'abc',
000003 // CLASS=H,
000004 // MSGCLASS=H,
000005 // REGION=9000K,TIME=1440,
000006 // MSGLEVEL=(1,1)
000007 //STEP1 EXEC PGM=IEFBR14
000008 //SYSOUT DD *
000009 //TEMDATA DD DISP=(NEW,CATLG,DELETE),
000010 // DSN=HERC01.TKARTHI.EXAMPLE,
000011 // SPACE=(TRK,(45,45,50)),
000012 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO),
000013 // UNIT=SYSDA
000014 //
对/对:
J E S 2 J O B L O G
07.47.07 JOB 26 IEF452I HERC01A JOB NOT RUN - JCL ERROR
1 //HERC01A JOB (COBOL),
// 'abc',
// CLASS=H,
// MSGCLASS=H,
// REGION=9000K,TIME=1440,
// MSGLEVEL=(1,1),
// USER=HERC01,PASSWORD= GENERATED BY GDL
2 //STEP1 EXEC PGM=IEFBR14
3 //SYSOUT DD *
4 //TEMDATA DD DISP=(NEW,CATLG,DELETE),
5 //* DSN=HERC01.TKARTHI.EXAMPLE,
6 // SPACE=(TRK,(45,45,50)),
7 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO),
8 // UNIT=SYSDA
STMT NO. MESSAGE
-
4 IEF621I EXPECTED CONTINUATION NOT RECEIVED
5 IEF605I UNIDENTIFIED OPERATION FIELD
6 IEF605I UNIDENTIFIED OPERATION FIELD
7 IEF605I UNIDENTIFIED OPERATION FIELD
8 IEF605I UNIDENTIFIED OPERATION FIELD
******EOF-TTR=000101************ BOTTOM OF DATA **************1689-BYTES********
最佳答案
正如其他人所指出的,问题是 JCL 在第 16 列或之前寻找延续。
下面我使用 Cols
行命令在 ISPF Edit 中提供了 JCL 的 View 。
在您的示例中,请注意 TEMDATA
之后的行被计为第 5 行,并且已转换为注释,由新的 //*
由于不正确的继续,因此以下行被认为是新的 JCL 语句。
这是使用传统方法重新格式化的版本。请注意,DDName TEMDATA
对齐以允许 8 个字符的 DDName 后跟 DD 语句,然后是位置参数。这允许相当干净的编码,无论 DDName 是否少于 8 个字符和对齐方式。
关于mainframe - 未收到预期的继续,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55204568/