MVSFORUMS.com :: View topic

through

[^/[Print]\]

MVSFORUMS.com -> Job Control Language(JCL)

#1: SPLIT PDS Author: anbesivam,

Posted: Mon Oct 02, 2006 7:20 am
—
Hi,

I have searched the forum for the following requirement. But couldn't find any help.

Could any one please help me on this.

I have

Code:

MASTER. DATASET --> PDS
member1
member2
member3
member4

CHILD1. DATASET --> PDS
member1
member2

CHILD2. DATASET--> PDS
member3
member4

I need to spilt the PDS in to two different PDS (two half). Please advise.

#2: Author: shekar123, Location: Bangalore India

Posted: Mon Oct 02, 2006 7:28 am
—
anbesivam,

Can u not simply move the members MEMBER3 & MEMBER4 from the MASTER. DATASET PDS to another new PDS say NEW.PDS ?

#3: Author: anbesivam,

Posted: Mon Oct 02, 2006 7:30 am
—
Hi Shekar123,

Thanks for your response.

My MASTER PDS contains around 12500 members. That's why i am looking for other ways.

#4: Author: shekar123, Location: Bangalore India

Posted: Mon Oct 02, 2006 9:06 am
—
anbesivam,

1.Go to option 3.3
2.If you want to Move the members from the original PDS whose members name start with A* do the following which will copy members starting with A only and similary do it for other letters whose name starts with as a result all desired members will be moved to NEW PDS.

Code:

Move/Copy Utility 0 members moved
Option ===> M
More: +
C Copy data set or member(s) CP Copy and print
M Move data set or member(s) MP Move and print
L Copy and LMF lock member(s) LP Copy, LMF lock, and print
P LMF Promote data set or member(s) PP LMF Promote and print

Specify "From" Data Set below, then press Enter key

From ISPF Library:
Project . . . (--- Options C, CP, L, and LP only ---)
Group . . . . . . . . . . . . .
Type . . . .
Member . . . (Blank or pattern for member list,
"*" for all members)

From Other Partitioned or Sequential Data Set:
Data Set Name . . . 'USERID.OLD.PDS(A*)'
Volume Serial . . . (If not cataloged)

MOVE From USERID.OLD.PDS
Command ===>
More: +
Specify "To" Data Set Below

To ISPF Library:
Project . . Replace option:
Group . . . Enter "/" to select option
Type . . . . / Replace like-named members

To Other Partitioned or Sequential Data Set:
Data Set Name . . . 'USERID.NEW.PDS'
Volume Serial . . . (If not cataloged)

Data Set Password . . (If password protected)

To Data Set Options:
Sequential Disposition Pack Option SCLM Setting
1 1. Mod 3 1. Yes 3 1. SCLM
2. Old 2. No 2. Non-SCLM

MOVE USERID.OLD.PDS TO USERID.NEW.PDS Row 00001 of 00003
Command ===> S * Scroll ===> CSR
Name Prompt Size Created Changed ID
. A1PGM 86 2005/12/28 2006/08/29 22:03:23 USERID
. A2PGM 255 2006/02/12 2006/08/18 13:43:16 USERID
. A3PGM 232 2006/02/12 2006/08/12 18:17:32 USERID
**End**

#5: Author: anbesivam,

Posted: Mon Oct 02, 2006 9:29 am
—
Hi Shaker123,

Thanks much for your effort.

Some what, this is the way I have moved the members.

But,

Is it possible to make a SPLIT while writng in to Master Dataset ? or Is there any utilities can SPLIT after getting master dataset ?

Please let me know.

#6: Author: coolman, Location: US

Posted: Mon Oct 02, 2006 4:20 pm
—
Is it a blind split like the first 6250 would go to Child 1 and the second 6250 would go to Child 2? Have you looked at LM services as an option?
________
herbalaire review

Last edited by coolman on Sat Feb 05, 2011 1:53 am; edited 1 time in total

#7: Author: kolusu, Location: San Jose

Posted: Tue Oct 03, 2006 7:05 am
—

anbesivam wrote:

Is it possible to make a SPLIT while writng in to Master Dataset ? or Is there any utilities can SPLIT after getting master dataset ?

Please let me know.

Yes it is possible. Follow these steps.

1. Flatten the PDS to PS using IEBPTPCH
2. Now split this flat file into 2 files using SORT
3. You can remove the headers and replace it IEBCOPY compatible statements in sort step itself
4. Run IEBCOPY with the split datasets.

Hope this helps...

Cheers

Kolusu

#8: Author: dz,

Posted: Wed Oct 04, 2006 3:02 pm
—
FileAid Copy option (3.3) contains member name filtering (see "Specify Member Selection Option"):

Quote:

Code:

File-AID ----------------- PDS Processing Options -----------------------------
COMMAND ===>

FROM Dataset: PDS1
Copy entire member ===> Y (Y = Yes;
N = No, selected records only)
Copy empty members ===> N (Y = Yes; N = No)
Process in JCL format ===> N (Y = Yes; N = No)

TO Dataset: PDS2
Replace like-named members ===> Y (Y = Yes; N = No)

Rename copied members mask ===>

Specify Member Selection Options (Blank for All Members)
Member name mask ===>
Member name range ===> to ===>
Last modified userid ===> to ===>
Creation date ===> to ===> (YY/MM/DD)
Modification date ===> to ===> (YY/MM/DD)

Display member selection list ===> Y (Y = Yes; N = No)

#9: Author: anbesivam,

Posted: Thu Oct 05, 2006 6:38 am
—
Hi All,

I am really Happy to part of this Forum. Very Happy

I have tried all your valuable soultions. I have learned most of the things from the soultions.

Thanks you so much for providing different way of solving this problem.

MVSFORUMS.com -> Job Control Language(JCL)

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1