我的JCL中出现$ HASP165错误（JOB09746 $ HASP165 KC03A081结束于SVSCJES2-JCL错误CN（内部））

Question

当前正在使用JCL，每提交一次，就会弹出一个错误（标题中的错误）。我只是无法弄清楚发生了什么，我相信自己对此想得太过分了，但是每次我去休息片刻，当我回来时，无论我做了什么改变，它都会重新做一遍。我只是无法指出问题所在。我以为也许我忽略了某些东西，需要另一双眼睛。我对JCL还是很陌生，所以我只是想运行我的一个PDS中的程序。

代码：

 //KC03A081 JOB 1,SPENSER,NOTIFY=&SYSUID,MSGCLASS=H,           
 //* THIS JOB WILL COMPILE, LINK, AND GO A GIVEN PROGRAM      
 //STEP1    EXEC IGYWCLG,                                      
 // PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,SIZE(2048376)'  
 //COBOL.SYSIN DD DSN=KC03A08.SOURCE.CBLWI19(CBLSJL01),DISP=SHR
 //GO.RESERVATION-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR       
 //GO.RATES-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR             
 //GO.DISCOUNT-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR          
 //GO.TAX-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR               
 //GO.CAMPBILLPRT DD DSN=KC03A08.STUDENT.PRT,                  
 //             DISP=(NEW,CATLG,DELETE),                       
 //             UNIT=SYSDA,                                    
 //             SPACE=(TRK,(1,1)),                             
 //             DCB=(DSORG=PS,LRECL=133,RECFM=FBA,BLKSIZE=1330)
 //                                                            

我尝试过的解决方案：

JCL error - "$HASP165 IBMUSERW ENDED AT SVSCJES2 - JCL ERROR CN(INTERNAL)"

http://www.ibmmainframeforum.com/jcl/topic1301.html

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.hasa100/m001094.htm

Answer 1

IGYWCLG是IBM提供的用于编译和链接COBOL程序的分类过程。它包括三个步骤：

• COMPILE
• LinkEdit
• GO

看起来主要问题在重写和其他一些JCL问题中。为了这里]

//KC03A081 JOB 1,SPENSER,NOTIFY=&SYSUID,MSGCLASS=H,作业卡错误。它以结尾，但没有延续。这是一个JCL错误，它将终止作业处理。

 //* THIS JOB WILL COMPILE, LINK, AND GO A GIVEN PROGRAM      
 //STEP1    EXEC IGYWCLG,                                     
 // PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,SIZE(2048376)'
这将执行Proc IGYWCLG来编译，链接并运行以下COBOL程序。 

//COBOL.SYSIN DD DSN=KC03A08.SOURCE.CBLWI19(CBLSJL01),DISP=SHR

上面的语句没有任何明显的错误。

以下语句是proc中GO步骤的替代。似乎这些对已编译COBOL程序中使用的文件的引用。

此区域中存在多个重复出现的问题。列出该声明，后跟注释。

//GO.RESERVATION-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR

DDName RESERVATION-MASTER不是有效的DDName。 DDName的长度最多为8个字符。在COBOL程序的DATA DIVISION FILE CONTROL区域中，有一个FD条目，应与DDName相匹配。似乎您正在使用WORKING-STORAGE引用作为记录格式，而不是FILE CONTROL中的名称。

此外，您需要DSN =数据集名称，DISP = SHR。您缺少DSN和名称之间的等号。

 //GO.RATES-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR            
 //GO.DISCOUNT-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR          
 //GO.TAX-MASTER DD DSN KC03A08.TRAN.IN,DISP=SHR               
 //GO.CAMPBILLPRT DD DSN=KC03A08.STUDENT.PRT,                  
 //             DISP=(NEW,CATLG,DELETE),                       
 //             UNIT=SYSDA,                                    
 //             SPACE=(TRK,(1,1)),                             
 //             DCB=(DSORG=PS,LRECL=133,RECFM=FBA,BLKSIZE=1330)
 //