JCL error
Posted: Wed Nov 28, 2007 10:21 pm
Hi,
I use the x3270 emulator. My problem is that I get an error message for my very simple jcl script. I don't know what is wrong on my jcl script and the error message doesn't help me. The error code is "JCL" and this means: "A JCL error was recognized after the job or started task began to execute, or a JCL error was recognized after syntax checking in the internal reader."
I get this line after I execute the SUB command:
Could it be that the error is in the cobol code?
I would like to compile cobol code. This code is in one of the members at the PDS USERID.CICS.COB(SQUARE1). The record format is FB. The compiled code shall write the jcl script to the PDS USERID.CICS.LOAD. The record format is U.
Here is the jcl code:
Thanks
Regards
Björn
I use the x3270 emulator. My problem is that I get an error message for my very simple jcl script. I don't know what is wrong on my jcl script and the error message doesn't help me. The error code is "JCL" and this means: "A JCL error was recognized after the job or started task began to execute, or a JCL error was recognized after syntax checking in the internal reader."
I get this line after I execute the SUB command:
18.46.40 JOB03724 $HASP165 USERID2C ENDED AT N1 - JCL ERROR CN(INTERNAL)
Could it be that the error is in the cobol code?
I would like to compile cobol code. This code is in one of the members at the PDS USERID.CICS.COB(SQUARE1). The record format is FB. The compiled code shall write the jcl script to the PDS USERID.CICS.LOAD. The record format is U.
Here is the jcl code:
==MSG> -Warning- The UNDO command is not available until you change
==MSG> your edit profile using the command RECOVERY ON.
000100 //USERID2C JOB (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
000200 // REGION=4M
000300 //STEP1 EXEC IGYWCL
000400 //COBOL.SYSIN DD DSN=&SYSUID..CICS.COB(SQUARE1),DISP=SHR
000500 //LKED.SYSLMOD DD DSN=&SYSUID..CICS.LOAD,DISP=SHR
000600 //LKED.SYSIN DD *
000700 NAME SQUARE1(R)
000800 /*
==MSG> your edit profile using the command RECOVERY ON.
000100 //USERID2C JOB (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
000200 // REGION=4M
000300 //STEP1 EXEC IGYWCL
000400 //COBOL.SYSIN DD DSN=&SYSUID..CICS.COB(SQUARE1),DISP=SHR
000500 //LKED.SYSLMOD DD DSN=&SYSUID..CICS.LOAD,DISP=SHR
000600 //LKED.SYSIN DD *
000700 NAME SQUARE1(R)
000800 /*
Thanks
Regards
Björn