Automatically generate no. of members in a pds using jc

pritanshu · New User Joined: 31 Jan 2008 Posts: 15 Location: gurgaon

hi all,

can we automatically generate no. of members in a pds using jcl....

regards,
pritanshu

gcicchet · Posted: Wed Apr 09, 2008 11:14 am

Hi,
try this link http://ibmmainframes.com/viewtopic.php?t=6192&highlight=members+count+pds

Gerry

pritanshu · New User Joined: 31 Jan 2008 Posts: 15 Location: gurgaon

hi gerry,

i need to split a ps into 50 members of one pds i dont need to count this
i m asking is thr any way to generate no. of members in a pds rather than writing like this what i m doin previously:

//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSUCJEI.NDB.COBBAT(TESTOUT)
//SYSUT2 DD DISP=SHR,DSN=TSUCJEI.NDB.SPLIT.OUT
//SYSIN DD *
GENERATE MAXNAME=5,MAXGPS=4
MEMBER NAME=PART1
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=PART2
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=PART3
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=PART4
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=PART5
/*

dick scherrer · Posted: Wed Apr 09, 2008 11:52 am

Hello,

Your requirement is most unclear. Keep in mind that your question is comletely to you, but it may not be to those who read it.

pritanshu · New User Joined: 31 Jan 2008 Posts: 15 Location: gurgaon

hi all ,
i have done this by using IEBGENER........
//SYSIN DD *
GENERATE MAXNAME=63,MAXGPS=62
MEMBER NAME=R3301R01
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=R3301R02
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=R3301R03
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=R3301R04
RECORD IDENT=(6,'END-OF',30)
MEMBER NAME=R3301R05
RECORD IDENT=(6,'END-OF',30)
and so on till 63 members

expat · Posted: Fri Apr 11, 2008 2:46 pm

Splitting a PS into x PDS members,

Call me a cynic - but HOMEWORK sort of springs to mind here

pritanshu · New User Joined: 31 Jan 2008 Posts: 15 Location: gurgaon

ya sure