Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: TO create a PDS with JCL which would hold member GT 999.
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: 8593
Location: Back in jolly old England

PostPosted: Tue Jul 15, 2008 1:27 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Jul 15, 2008 1:29 pm    Post subject: Reply to: TO create a PDS with JCL which would hold member G
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    Post subject:
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    Post subject:
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    Post subject:
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.

http://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    Post subject:
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

Site Director


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

PostPosted: Tue Jul 15, 2008 10:04 pm    Post subject:
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    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 16, 2008 2:59 pm    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 16, 2008 6:39 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts How can we create a flat file in JAVA... rakesh.v18 Java & MQSeries 7 Fri Sep 23, 2016 10:46 pm
No new posts File Stauts 92 with member of PDS sandip_mainframe COBOL Programming 4 Fri Jun 10, 2016 12:06 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us