Page 1 of 1

Unable to solve the problem

PostPosted: Thu 17 Dec 2009, 01:01
by venumadhav.hari
Hi,
I tried the below JCL in my office mainframe as well as using DEZHI mainframe.


Code: Select all
//PSTAYAR JOB (12345678),HMADHAV,MSGCLASS=H,   
//        MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
//STEP1    EXEC PGM=IEFBR14                     
//DD1      DD   DSN=HMADHAV.CREATION.JCLS(PS1),
//              DISP=(NEW,CATLG,DELETE),       
//              SPACE=(TRK,(4,2)),             
//              DCB=(LRECL=80,RECFM=FB,DSORG=PS,
//                   BLKSIZE=8880)             



Here in DEZHI, it is throwing an error.

Code: Select all
20.58.19 JOB65529 $HASP165 PSTAYAR  ENDED AT N1 - JCL ERROR CN(INTERNAL)
***


Can any one help me in solving this error?

Thanks
VENU

Re: Unable to solve the problem

PostPosted: Thu 17 Dec 2009, 08:38
by prino
Please do not waste our time with problems that have a trivial solution, if only you would actually look at error messages!

Learn to count, at least to 16.

Re: Unable to solve the problem

PostPosted: Fri 18 Dec 2009, 14:23
by Rakesh kotha
Venu,

When you say DSORG=PS, it means you are creating a PS file but you are trying to create a Member in HMADHAV.CREATION.JCL. It means trying to create a member in a PS file. Try with DSORG=PO and allocate Directory Block in Space. Like SPACE=(TRK,(4,2,5)).

Re: Unable to solve the problem

PostPosted: Sat 19 Dec 2009, 01:30
by sysprog
You really need to look at your joblog, or tell us your job name and JOBID. The error messages show where the problem is.

From your JCL, I can see you missed UNIT=3390 in your DD, and it seems you are trying to allocate a PDS (there is a member name in your DSN), but not coded directory.

Try this for PDS:
Code: Select all
//DD1      DD   DSN=HMADHAV.CREATION.JCLS,
//              DISP=(NEW,CATLG,DELETE),UNIT=3390,       
//              SPACE=(TRK,(15,15,20)),             
//              LRECL=80,RECFM=FB 


Try this for PS:
Code: Select all
//DD1      DD   DSN=HMADHAV.CREATION.JCLS,
//              DISP=(NEW,CATLG,DELETE),UNIT=3390,       
//              SPACE=(TRK,(15,15)),             
//              LRECL=80,RECFM=FB