Page 1 of 2

JCL error

PostPosted: Wed Nov 28, 2007 10:21 pm
by Bjoern
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:
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 /*


Thanks

Regards
Björn

Re: JCL error

PostPosted: Wed Nov 28, 2007 11:01 pm
by CICS Guy
Can you post the JESJCL to show the expantion?

BTW, nice post and use of the code wrappers....... :)

Re: JCL error

PostPosted: Thu Nov 29, 2007 12:49 am
by Bjoern
CICS Guy wrote:Can you post the JESJCL to show the expantion?

BTW, nice post and use of the code wrappers....... :)


Hi CICS Guy,
thank you :-). But I don't know how to access on JESJCL. Probably is this what I'm searching to get more information about the error.

Bye
Björn

Re: JCL error

PostPosted: Thu Nov 29, 2007 1:08 am
by CICS Guy
You are on TSO, editiong in ISPF.....
You should be able to get to SDSF from your primary option menu.
On mine 8 is SDSF.
Then I ST to get the job status display.
Then I PRE USERID* and hit enter.
Once I see the job that failes I put a ? in front of it and hit enter.
That gets me the JESMSGLG, JESJCL, JESYSMSG & any other sysouts.
Tab down to JESJCL and enter an S and hit enter.
That will get you the JCL expanded and the error will be listed.

Re: JCL error

PostPosted: Thu Nov 29, 2007 2:00 am
by dick scherrer
Hello,

You might also look in JESx.JESYSMSG. If the error is a "dataset not found", it may appear in JESYSMSG.

Re: JCL error

PostPosted: Thu Nov 29, 2007 4:53 pm
by Bjoern
Hi,
the point 8 in my ISPF menu doesn't exist, but I have found another way to display the job output. I think this is the important part of the output:
IEF212I USERID2C COBOL STEP1 STEPLIB - DATA SET NOT FOUND
IEF272I USERID2C COBOL STEP1 - STEP WAS NOT EXECUTED.   


And now?

Regards
Björn

Re: JCL error

PostPosted: Thu Nov 29, 2007 8:33 pm
by dick scherrer
Hello,

And now, you have to resolve the specified library that does not exist. We can't do anything about libraries on the system you are using.

You should talk with your system support people and ask which libraries you should be using.

Re: JCL error

PostPosted: Thu Nov 29, 2007 9:47 pm
by Bjoern
Hi Dick,
is that the library IGYWCL? Can I use another library, exspecially ECCDB?

Here the complete JES2 JOB Statistic again:
0----- JES2 JOB STATISTICS ------                                             
- 29 NOV 2007 JOB EXECUTION DATE                                               
-           8 CARDS READ                                                       
-          94 SYSOUT PRINT RECORDS                                             
-           0 SYSOUT PUNCH RECORDS                                             
-           8 SYSOUT SPOOL KBYTES                                             
-        0.00 MINUTES EXECUTION TIME                                           
       1 //USERID2C JOB (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIFY=&SYSUID,   
         //         REGION=4M                                                 
         IEFC653I SUBSTITUTION JCL - (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIF
       2 //STEP1    EXEC IGYWCL                                               
       3 XXIGYWCL PROC  LNGPRFX='IGY.V3R2M0',SYSLBLK=3200,                     
         XX             LIBPRFX='CEE',                                         
         XX             PGMLIB='&&GOSET',GOPGM=GO                             
         XX*                                                                   
         XX********************************************************************
         XX*                                                                   
         XX*  Enterprise COBOL for z/OS and OS/390                             
         XX*               Version 3 Release 2 Modification 0                 
         XX*                                                                   
         XX*  LICENSED MATERIALS - PROPERTY OF IBM.                           
         XX*                                                                   
         XX*  5655-G53 5648-A25 (C) COPYRIGHT IBM CORP. 1991, 2002             
         XX*  ALL RIGHTS RESERVED                                             
         XX*                                                                   
         XX*  US GOVERNMENT USERS RESTRICTED RIGHTS - USE,                     
         XX*  DUPLICATION OR DISCLOSURE RESTRICTED BY GSA                     
         XX*  ADP SCHEDULE CONTRACT WITH IBM CORP.                             
         XX*                                                                   
         XX********************************************************************
         XX*                                                                   
         XX*  COMPILE AND LINK EDIT A COBOL PROGRAM                           
         XX*                                                                   
         XX*  PARAMETER  DEFAULT VALUE    USAGE                               
         XX*   LNGPRFX   IGY.V3R2M0       PREFIX FOR LANGUAGE DATA SET NAMES   
         XX*   SYSLBLK   3200             BLOCKSIZE FOR OBJECT DATA SET       
         XX*   LIBPRFX   CEE              PREFIX FOR LIBRARY DATA SET NAMES   
         XX*   PGMLIB    &&GOSET          DATA SET NAME FOR LOAD MODULE       
         XX*   GOPGM     GO               MEMBER NAME FOR LOAD MODULE         
         XX*                                                                   
         XX*  CALLER MUST SUPPLY //COBOL.SYSIN DD ...                         
         XX*                                                                   
         XX*  CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements
         XX*                                                                   
       4 XXCOBOL  EXEC PGM=IGYCRCTL,REGION=2048K                               
       5 XXSTEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,                             
         XX             DISP=SHR                                               
         IEFC653I SUBSTITUTION JCL - DSNAME=IGY.V3R2M0.SIGYCOMP,DISP=SHR       
       6 XXSYSPRINT DD  SYSOUT=*                                               
       7 XXSYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSDA,                           
         XX             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),                     
         XX             DCB=(BLKSIZE=&SYSLBLK)                                 
         IEFC653I SUBSTITUTION JCL - DSNAME=&&LOADSET,UNIT=SYSDA,DISP=(MOD,PASS
       8 XXSYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
       9 XXSYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      10 XXSYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      11 XXSYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      12 XXSYSUT5   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      13 XXSYSUT6   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      14 XXSYSUT7   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))                           
      15 //COBOL.SYSIN DD DSN=&SYSUID..CICS.COB(SQUARE1),DISP=SHR             
         IEFC653I SUBSTITUTION JCL - DSN=USERID2.CICS.COB(SQUARE1),DISP=SHR   
      16 XXLKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K                 
      17 XXSYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,                             
         XX             DISP=SHR                                               

         IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR             
      18 XXSYSPRINT DD  SYSOUT=*                                               
      19 XXSYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                     
      20 XX         DD  DDNAME=SYSIN                                           
      21 //LKED.SYSLMOD DD DSN=&SYSUID..CICS.LOAD,DISP=SHR                     
         IEFC653I SUBSTITUTION JCL - DSN=USERID2.CICS.LOAD,DISP=SHR           
         X/SYSLMOD  DD  DSNAME=&PGMLIB(&GOPGM),                               
         X/             SPACE=(TRK,(10,10,1)),                                 
         X/             UNIT=SYSDA,DISP=(MOD,PASS)                             
         IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(TRK,(10,10,1)),U
      22 XXSYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(10,10))                         
      23 //LKED.SYSIN DD *                                                     
 STMT NO. MESSAGE                                                             
        2 IEFC001I PROCEDURE IGYWCL WAS EXPANDED USING SYSTEM LIBRARY ADCD.ZOSV
ICH70001I USERID2  LAST ACCESS AT 18:07:02 ON THURSDAY, NOVEMBER 29, 2007     
IEF212I USERID2C COBOL STEP1 STEPLIB - DATA SET NOT FOUND                     
IEF272I USERID2C COBOL STEP1 - STEP WAS NOT EXECUTED.                         
IEF373I STEP/COBOL   /START 2007333.1807                                       
IEF374I STEP/COBOL   /STOP  2007333.1807 CPU    0MIN 00.00SEC SRB    0MIN 00.00
IEF375I  JOB/USERID2C/START 2007333.1807                                       
IEF376I  JOB/USERID2C/STOP  2007333.1807 CPU    0MIN 00.00SEC SRB    0MIN 00.00



Regards
Björn

Re: JCL error

PostPosted: Thu Nov 29, 2007 10:06 pm
by CICS Guy
Bjoern wrote:is that the library IGYWCL? Can I use another library, exspecially ECCDB?
ICYWCL is the PROC.....
ECCDB? Huh?
The steplib is missing (or at least the one with the specified HLQs....
       5 XXSTEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,                             
         XX             DISP=SHR                                               
         IEFC653I SUBSTITUTION JCL - DSNAME=IGY.V3R2M0.SIGYCOMP,DISP=SHR       

IEF212I USERID2C COBOL STEP1 STEPLIB - DATA SET NOT FOUND                     

Maybe you need to override the language prefix: LNGPRFX='IGY.V3R2M0'....
Try a 3.4 search for **.SIGYCOMP and see what pops up......

Re: JCL error

PostPosted: Thu Nov 29, 2007 10:25 pm
by dick scherrer
Hi Bjoern,

Sorry to be a bore, but
You should talk with your system support people and ask which libraries you should be using.
Your system support people will know the infrastructure for your system. That info is not available to us here at the forum.