View previous topic :: View next topic
|
Author |
Message |
minni163 Warnings : 1 New User
Joined: 17 Apr 2009 Posts: 8 Location: hyderabad
|
|
|
|
please tell me what is meant by JCL ERROR 158 |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
What a shame that you didn't pick psychic day to post, that way we could have seen the output of the job without you needing to post it on the forum.
I believe that you will find that the 158 is just an extraneous piece of text written out by the JES subsystem, and the real cause of the JCL error is clearly stated in the text that you have not bothered to post. |
|
Back to top |
|
|
minni163 Warnings : 1 New User
Joined: 17 Apr 2009 Posts: 8 Location: hyderabad
|
|
|
|
what is invalid in below coding:
//DEFEMPTY EXEC PGM=SORT
//SYSIN DD *
SORT FIELDS=COPY
/*
throwing invalid jcl statements for above lines. |
|
Back to top |
|
|
anandinmainframe
Active User
Joined: 31 May 2007 Posts: 171 Location: India
|
|
|
|
minni163,
Can you post the complete info(Error) you can see in the spool as well as the complete JCL. |
|
Back to top |
|
|
minni163 Warnings : 1 New User
Joined: 17 Apr 2009 Posts: 8 Location: hyderabad
|
|
|
|
jcl:
job calling a cataloged proc named TEST001P
PROC consists of
//TEST001P PROC
//DEFEMPTY EXEC PGM=SORT
//SYSIN DD *
SORT FIELDS=COPY
/*
//SORTIN DD DSN=IPTP.PDSN.CREATE.TEST,DISP=SHR
//SORTOUT DD DSN=IPTT.PDSN.CREATE.TEST,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(LRECL=80,BLKSIZE=0,RECFM=FB)
//SYSLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
JESYSMSG IN SPOOL:
STMT NO. MESSAGE
4 IEFC001I PROCEDURE TEST001P WAS EXPANDED USING PRIVATE LIBRARY DEV1.PR
7 IEFC601I INVALID JCL STATEMENT
8 IEFC601I INVALID JCL STATEMENT
9 IEFC601I INVALID JCL STATEMENT
16 IEFC001I PROCEDURE ENDJOB WAS EXPANDED USING PRIVATE LIBRARY DEV1.PROC |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
From the JCL Language Reference (link at the top of the page):
Quote: |
12.2.5 Location in the JCL
A DD * statement begins an in-stream data set.
In-stream Data for Cataloged or In-stream Procedures
A cataloged or in-stream procedure cannot contain a DD * statement. |
Rewrite your PROC to get rid of the DD * |
|
Back to top |
|
|
anandinmainframe
Active User
Joined: 31 May 2007 Posts: 171 Location: India
|
|
|
|
Mani,
Can you try the below JCL
//TEST001P PROC
//DEFEMPTY EXEC PGM=SORT
//SYSLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTIN DD DSN=IPTP.PDSN.CREATE.TEST,DISP=SHR
//SORTOUT DD DSN=IPTT.PDSN.CREATE.TEST,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB)
//SYSIN DD *
SORT FIELDS=COPY
/* |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
You just shuffled the cards,
the inline data is still inside the proc |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
anandinmainframe: did you try it on your machine? What results did you get? |
|
Back to top |
|
|
minni163 Warnings : 1 New User
Joined: 17 Apr 2009 Posts: 8 Location: hyderabad
|
|
|
|
The job is successful after making instream sysin card into catalogued.
Thank you frenz. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
Glad to hear it worked. |
|
Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007 Posts: 562 Location: Iowa, USA
|
|
|
|
minni163 wrote: |
please tell me what is meant by JCL ERROR 158 |
The number (158 in your case) is a multi-line WTO identifier.
If there are additional message lines to explain the error, they will begin with the same number to show that they go together as a set.
Even though the logic prepares for it, there are not always additional lines so the number is sometimes meaningless. |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1248 Location: Richfield, MN, USA
|
|
|
|
Mani, next time please post the requested information. We have no idea what statements 4, 7, 8, 9, and 16 are unless you show ALL relevant information. If I remember correctly, the JESJCL data set is the one that shows statement number along with the statement. |
|
Back to top |
|
|
|