please tell me what is meant by JCL ERROR 158

minni163 · New User Joined: 17 Apr 2009 Posts: 8 Location: hyderabad

expat · Posted: Tue Apr 21, 2009 4:54 pm

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.

minni163 · 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.

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.

minni163 · 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

Robert Sample · Posted: Tue Apr 21, 2009 5:20 pm

From the JCL Language Reference (link at the top of the page):

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

enrico-sorichetti · Posted: Tue Apr 21, 2009 5:23 pm

You just shuffled the cards,
the inline data is still inside the proc

Robert Sample · Posted: Tue Apr 21, 2009 5:23 pm

anandinmainframe: did you try it on your machine? What results did you get?

minni163 · New User Joined: 17 Apr 2009 Posts: 8 Location: hyderabad

The job is successful after making instream sysin card into catalogued.

Thank you frenz.

Robert Sample · Posted: Tue Apr 21, 2009 5:41 pm

Glad to hear it worked.

Bill Dennis · Posted: Tue Apr 21, 2009 7:32 pm

Terry Heinze · Posted: Tue Apr 21, 2009 7:51 pm

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.