Error in Allocating multiple datasets

cvijay784 · New User Joined: 18 Jun 2008 Posts: 54 Location: Colombo

Hi,

I facing an issue while allocating multiple files(10 files) thru following batch jcl. Please help me.

ALLOC DATASET('File2') -
NEW REUSE -
UNIT(SYSDA) RECFM(F) LRECL(4096) BLKSIZE(4096) -
SPACE(10) CYLINDERS -
RETPD(3700)
IKJ56220I FILE SYSTSPRT NOT ALLOCATED, TOO MANY DATA SETS
IKJ56220I MAXIMUM NUMBER OF DATA SET ALLOCATIONS ALLOWED BY YOUR
IKJ56220I SESSION HAS BEEN REACHED, YOU SHOULD FREE UNUSED DATA SETS
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

My job step is given below.

//STEP01 EXEC PGM=IDCAMS
//SYSIN DD DSN=TEST.LIB1(FILE1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*

superk · Posted: Mon Feb 28, 2011 6:28 pm

You may want to increase the settings for the maximum allowable number of dynamically allocated datasets:

16.6 DYNAMNBR Parameter.

Akatsukami · Posted: Mon Feb 28, 2011 8:29 pm

enrico-sorichetti · Posted: Mon Feb 28, 2011 8:46 pm

the issue has already been discussed
the simple solution is to use a dummy(placeholder) ddname

cvijay784 · New User Joined: 18 Jun 2008 Posts: 54 Location: Colombo

Hi,

Complete JCL is given below.

//JOBNAME JOB ,'VIJAY',CLASS=A,PRTY=4,
// MSGCLASS=J,NOTIFY=&SYSUID
//*******************************************************
//* STEP01 - IDCAMS COPY STEP
//*******************************************************
//STEP01 EXEC PGM=IDCAMS
//SYSIN DD DSN=TEST.PDSLIB(MEMBER),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*

MEMBER parm has following code.

SET MAXCC=0

ALLOC FI(DUMMDD) DA('TEST.PS') -
DSORG(PS) RECFM(F B) LRECL(80) -
SPACE(1 1) TRACKS NEW CATALOG REUSE -
RETPD(3700)

ALLOC FI(DUMMDD) DA('TEST.PS2') -
DSORG(PS) RECFM(F B) LRECL(80) -
SPACE(1 1) TRACKS NEW CATALOG REUSE -
RETPD(3700)

ALLOC FI(DUMMDD) DA('TEST.PS3') -
DSORG(PS) RECFM(F B) LRECL(80) -
SPACE(1 1) TRACKS NEW CATALOG REUSE -
RETPD(3700)

************************************

When using FI dummy dd name, i now get following error. Please help me.

000001 //JOBNAME JOB ,'VIJAY',CLASS=A,PRTY=4,
000002 // MSGCLASS=J,NOTIFY=&SYSUID
000003 //***********************************************************
000004 //* STEP01 - IDCAMS COPY STEP
000005 //***********************************************************
000006 //STEP01 EXEC PGM=IDCAMS
.JAAA //SYSIN DD DSN=TEST.PDSLIB(MEMBER),DISP=SHR
=NOTE= ----+----1----+----2----+----3----+----4----+----5----+----
=NOTE= SET MAXCC=0
=NOTE=
=NOTE= ALLOC FI(DUMMDD) DA('TEST.PS') -
==MSG> ***ERROR - DSS5650E - FI IS NOT VALID FOR THIS COMMAND
=NOTE= DSORG(PS) RECFM(F B) LRECL(80) -
=NOTE= SPACE(1 1) TRACKS NEW CATALOG REUSE -
=NOTE= RETPD(3700)
=NOTE=

enrico-sorichetti · Posted: Tue Mar 01, 2011 11:54 am

before posting I test the statements I provide
if something does not work.. certainly it is not due to something wrong in them

did You try to simply run the jcl?

cvijay784 · New User Joined: 18 Jun 2008 Posts: 54 Location: Colombo

This is a miracle. Job ran successfully and allocated multiple datasets.
A jcl that throws error in jcl checker, never ran successfully in my career.

This is amazing !!! Thanks for all your effort :)

enrico-sorichetti · Posted: Tue Mar 01, 2011 12:47 pm

miracle...
we do not need no steenking miracles!

Jcl checkers mighy be successful in finding jcl errors

the control card used for service programs and utilities are not part of jcl
and jcl checkers are prone to show for them non existing errors
jcl is has been pretty static for a long time, the big changes will happen in zOS 13
on the other side utilities and service program are much more prone to evolution

the proper approach would be that the checkers would provide an option to check only jcl and not control cards,
but that' s expecting too much from them!