CODEWITHSUNDEEP
mainframejcl
Spenser
Spenser

Reputation: 13

I am getting a $HASP165 error (JOB09746 $HASP165 KC03A081 ENDED AT SVSCJES2 - JCL ERROR CN(INTERNAL)) in my JCL

Currently working on JCL and every single time I submit, an error pops up (the one in the title). I just cannot figure out what is going on and I believe i'm overthinking it but every time that I go and take a quick break, when I come back, it does it all over again no matter what I change. I just cannot pin-point what the problem is. I thought that maybe I overlooked something and need another set of eyes. I'm quite new to JCL so i'm just trying to run a program I have in one of my pds.

Code:

 //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)
 //

Solutions I have Tried:

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

Upvotes: 1

Views: 3050

Answers (1)

Hogstrom
Hogstrom

Reputation: 3761

IGYWCLG is an IBM supplied cataloged procedure for compiling and linking a COBOL program. It consists of three steps:

  • COMPILE
  • LinkEdit
  • GO

Looks like the main issues are in the overrides and some other JCL issues. In order here

//KC03A081 JOB 1,SPENSER,NOTIFY=&SYSUID,MSGCLASS=H, The JOB card is in error. It ends with a , but there is no continuation. This is a JCL Error that will terminate job processing.

 //* THIS JOB WILL COMPILE, LINK, AND GO A GIVEN PROGRAM      
 //STEP1    EXEC IGYWCLG,                                     
 // PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,SIZE(2048376)'

This executes the Proc IGYWCLG to compile, link and go the following COBOL program.

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

The above statement doesn't have any apparent errors.

The following statements are overrides to the GO step in the proc. It appears these references to files used in the compiled COBOL program.

Several recurring problems exist in this area. The statement is listed followed by the comments.

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

The DDName RESERVATION-MASTER is not a valid DDName. DDNames are up to 8 characters in length. In the DATA DIVISION FILE CONTROL area of the COBOL program there is an FD entry which should match the DDName. It looks like you are using the WORKING-STORAGE references for the record formats rather than the name in the FILE CONTROL.

Also, you need DSN=datasetname,DISP=SHR. you are missing the equals sign between DSN and the name. 

 //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)
 //

Upvotes: 2

Related Questions