TO create a PDS with JCL which would hold member GT 999.

jaspal · New User Joined: 22 May 2007 Posts: 48 Location: mumbai

Hi ,

I want to create a PDS with job that could hold members moe then 999.

i am using code below :
//STEP010 EXEC PGM=IEFBR14,
// REGION=0M
//*
//TEMPLIB1 DD DSN=N8USP.JCLFILE.PDS,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(45,15,50)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO),
// UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//*

what would i add on more so that N8USP.JCLFILE.PDS can hold 999 members.

Regards,
Jaspal

expat · Posted: Tue Jul 15, 2008 1:27 pm Post subject:

Using the rule of thumb that one directory member holds 6 members, it should be easy for you to work it out now.

enrico-sorichetti

here is a reminder ( cut and paste from one of my posts )

dbzTHEdinosauer · Posted: Tue Jul 15, 2008 2:47 pm Post subject:

look up pds-e (type library).

jaspal · New User Joined: 22 May 2007 Posts: 48 Location: mumbai

i have updated the code below:

//STEP010 EXEC PGM=IEFBR14,
// REGION=0M
//*
//TEMPLIB1 DD DSN=N8USP.JCLFILE.PDS,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(45,15,167)),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//*

Now i can insert:1002 components in PDS.

i also want to know can we create a fresh PDS with capacity of 999 components using IDCAMS.
If yes....could anyprovide the code for the same

Regards,
Jaspal

dbzTHEdinosauer · Posted: Tue Jul 15, 2008 9:08 pm Post subject:

you only have room for 1002 directory entries. at 45 + 16*15 you have less than 300 tracks. how are you going to get more than 300 1 track elements into the pds.

if you are not running on a 1401, take a look at PDS-E's.

http://publib-b.boulder.ibm.com/abstracts/sg246106.html?Open

jaspal · New User Joined: 22 May 2007 Posts: 48 Location: mumbai

Hi dbzTHEdinosauer

if you currently are on mainframe machine can you run the job below and let me know how many member can a pds created can hold;

//STEP010 EXEC PGM=IEFBR14,
// REGION=0M
//*
//TEMPLIB1 DD DSN=N8USP.JCLFILE.PDS,
// DISP=(NEW,CATLG),
// SPACE=(TRK,(45,15,167)),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//*

ADD job card and change file name :

just try....i think calculation done by you are not true it will hold 1002 components in PDS.

i will provide you screen shots if u have any doubt.

Regards,
Jaspal

dick scherrer · Posted: Tue Jul 15, 2008 10:04 pm Post subject:

Hello,

jaspal · New User Joined: 22 May 2007 Posts: 48 Location: mumbai

Hi,

i have to insert 999 components in PDS and these would have 30 lines with record length 80 bytes each.........hence the the job coded would work - why to waste extra space or to allocate extra if not required.

Regards,
Jaspal

dbzTHEdinosauer · Posted: Wed Jul 16, 2008 11:25 am Post subject:

Jaspal,

you got everything in control. excusssssssssssssssssssse me for attempting to bring to your attention unnecessary facts. sorta like your requirement which you refine at the end of the thread. had you mentioned that you have a defined member size, then the pds size would not have been an issue. but I can see why you didn't bother to include facts in your requirement - why waste the extra keystrokes.

you are right, I AM WRONG!!

expat · Posted: Wed Jul 16, 2008 2:59 pm Post subject:

Bill Dennis · Posted: Wed Jul 16, 2008 6:27 pm Post subject:

expat,

I think you missed the point. Jaspal did the math and was trying to prove to Dick that the solution was correct. Dick conceded and now everybody's happy!

expat · Posted: Wed Jul 16, 2008 6:39 pm Post subject:

Shucks, misinterpretted that one ( Typed with a happy smile )