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
 

 

Split the members in a PDS into separate PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Tue Dec 01, 2009 3:41 pm    Post subject: Split the members in a PDS into separate PDS
Reply with quote

Requirement:
I have a PDS with say 52 members (M01 to M52). i need to split the members into new PDS with max 10 members such that my output will be 6 PDS with members as,
PDS1 - M01 to M10
PDS2 - M11 to M20
...
PDS6 - M51 and M52

I want to achive it by JCL.

Analysis till now:
I had been able to find below JCL for serving the purpose,
Code:
//STEP010 EXEC PGM=FILEAID                       
//SYSOUT   DD SYSOUT=*                           
//SYSPRINT DD SYSOUT=*                           
//SYSUDUMP DD SYSOUT=*                           
//DD01     DD DISP=SHR,DSN=INPUT.PDS.MEM52     
//DD01O    DD DISP=SHR,DSN=OUTPUT.PDS1
//SYSIN    DD *                                   
$$DD01 COPY MBRNAME=(M1,M10)             
/*                                               


Such that Output PDS "OUTPUT.PDS1" contains first 10 members from M01 to M10 (i.e. "FROM MEMBER" to "TO MEMBER" respectively). Likewise i need to submit for other members.

Unfulfilled Requirement:
While dealing with 1000's of members of complex member names it becomes difficult to extract name of members to be copied into JCL. Can we just give the count of members to be copied into output PDS instead of giving the "FROM MEMBER" and "TO MEMBER" to copy.
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 Dec 01, 2009 3:51 pm    Post subject:
Reply with quote

Quote:
I want to achive it by JCL.

/RANT ON
Once more let us clarify exactly what JCL is.

it is Job Control Language.

By itself it does nothing. It is used to invoke the chosen program and to define which datasets are to be used by the DD names associated with the chosen program.

JCL does not have magical powers that solve all problems, JCL is merely the vehicule for telling the processor which program you want it to execute.
/RANT OFF

To me, this looks like one of those strange requirements with no real business need. Maybe if you explained the need for this we could suggest something different.

As you are using FILEAID, what did it say in the FILEAID documentation regarding the parameters that can be used and the variations of them, such as using a count.
Back to top
View user's profile Send private message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Tue Dec 01, 2009 4:15 pm    Post subject:
Reply with quote

Hi Expat,

Thanks for conceptualizing the JCL.

My strange requirement is attached with business in context to load handling limit with endeavor.

We had about 30,000 components to be staged into endeavor which was failing since it was not able to process more than 200 components at a time. So i needed to split the PDS into almost 150 PDS with 200 component each.

With the available control card (as in my previous post) i need to change the "FROM MEMBER NAME" and "TO MEMBER NAME". So i was looking to avoid this manual intervention and give merely the "FROM NUMBER" and "TO NUMBER" of member to be copied.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Dec 01, 2009 4:29 pm    Post subject:
Reply with quote

instead of wasting time creating new pds's,
what don't you create your SCL to just load 200 members for each run?
Back to top
View user's profile Send private message
Deepakgoyal2005

New User


Joined: 22 Mar 2007
Posts: 57
Location: India

PostPosted: Tue Dec 01, 2009 4:52 pm    Post subject:
Reply with quote

In that case i would need to select 200 members every time out of the 30000 members in input PDS.

Or probably the option you are talking about might not be present in application at our end since it is resently been installed and is in still in maintainance mode icon_sad.gif

I was just interested in getting the solution of above requirement since i felt its need quite a few times.
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 Dec 01, 2009 4:56 pm    Post subject:
Reply with quote

Have you considered using REXX as a driver.

There are numerous examples on the forum of getting a list of PDS members. From that list you can generate the JCL to do as you wish.
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts how to split records based on specifi... Venkata Ramayya DFSORT/ICETOOL 6 Wed Sep 28, 2016 3:20 am
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm
This topic is locked: you cannot edit posts or make replies. Massive flat file split sort hsivaramak SYNCSORT 2 Wed Jul 27, 2016 7:44 am
No new posts Huge File Split Sort hsivaramak SYNCSORT 3 Wed Jul 27, 2016 1:12 am


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