|
View previous topic :: View next topic
|
| Author |
Message |
jaspal
New User
Joined: 22 May 2007
Posts: 68
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 |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Using the rule of thumb that one directory member holds 6 members, it should be easy for you to work it out now. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
here is a reminder ( cut and paste from one of my posts )
| Quote: |
a directory block is 256 bytes...
...
each entry has the following layout
8 bytes for the member name
3 bytes for the TTR ( 2 bytes for the track 1 byte for the record ) offset
1 byte for flags and the length of the user data
...
for fb/vb ( not load ) datasets the entry size depends on the ispf statistics being there or not
each entry will be
12 bytes without statistics
42 bytes with statistics
the ispf statistics are 15 halfords, 30 bytes
so each directory block will contain ..
21 entries without statistics
6 entries with statistics
anything between for the mixed case...
|
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| look up pds-e (type library). |
|
| Back to top |
|
|
jaspal
New User
Joined: 22 May 2007
Posts: 68
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 |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
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.
publib-b.boulder.ibm.com/abstracts/sg246106.html?Open |
|
| Back to top |
|
|
jaspal
New User
Joined: 22 May 2007
Posts: 68
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 |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| i think calculation done by you are not true it will hold 1002 components in PDS. |
The info from dbz is true. It is you who misunderstands. . .
Your definition could support 1000+ member names, but the space you provided may not hold that many members - you underallocated space while you were focused on directory blocks. . . |
|
| Back to top |
|
|
jaspal
New User
Joined: 22 May 2007
Posts: 68
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 |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
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!! |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| jaspal wrote: |
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 |
OK, so you have posted a question. Both Enrico and myself have given you the information that pertains to the number of members that can be contained in each directory block.
Surely you are able to perform some simple arithmatic, maybe with pencil and paper if not in your head, and as a last resort there is usually a calculator included with windows. |
|
| Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA
|
|
|
|
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!  |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Shucks, misinterpretted that one ( Typed with a happy smile ) |
|
| Back to top |
|
|
|
|
