IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

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


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jaspal

New User


Joined: 22 May 2007
Posts: 68
Location: mumbai

PostPosted: Tue Jul 15, 2008 1:21 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Jul 15, 2008 1:27 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Tue Jul 15, 2008 1:29 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 15, 2008 2:47 pm
Reply with quote

look up pds-e (type library).
Back to top
View user's profile Send private message
jaspal

New User


Joined: 22 May 2007
Posts: 68
Location: mumbai

PostPosted: Tue Jul 15, 2008 8:54 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Jul 15, 2008 9:08 pm
Reply with quote

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
View user's profile Send private message
jaspal

New User


Joined: 22 May 2007
Posts: 68
Location: mumbai

PostPosted: Tue Jul 15, 2008 9:19 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Jul 15, 2008 10:04 pm
Reply with quote

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
View user's profile Send private message
jaspal

New User


Joined: 22 May 2007
Posts: 68
Location: mumbai

PostPosted: Tue Jul 15, 2008 10:21 pm
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Jul 16, 2008 11:25 am
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 16, 2008 2:59 pm
Reply with quote

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
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Wed Jul 16, 2008 6:27 pm
Reply with quote

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! icon_biggrin.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 16, 2008 6:39 pm
Reply with quote

Shucks, misinterpretted that one ( Typed with a happy smile )
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts COBOL - create and write to output fi... COBOL Programming 0
No new posts Best way to create an automated line ... TSO/ISPF 3
No new posts FD Section to Create FB or Vb File Dy... COBOL Programming 1
No new posts Library member auto insert option TSO/ISPF 3
No new posts DataSet member creation failed with B... Java & MQSeries 15
Search our Forums:

Back to Top