MVS Jan 2005.p65 - CBT Tape

Splitting PDSs
Did you ever want to split off a portion of a PDS for testing? Or
have you ever wanted to break up a PDS into a number of
smaller PDSs so you could run multiple quick jobs instead of
one long job?
The two biggest reasons I can remember for writing PDSSPLIT
were using the CICS Load Module scanner (DFHEISUP) and
AMBLIST against large PDSs. PDSSPLIT allowed me to get
my results in a fraction of the time and avoided memory usage
problems encountered with both programs. Since creating
PDSSPLIT, I have found many other uses for it.
PDSSPLIT will generate new unique datasets for all the
subsets and leave the original dataset intact. PDSSPLIT
simply builds IEBCOPY control cards and invokes IEBCOPY
to perform the copies. PDSSPLIT has three modes:
ALPHA – create new datasets based on the first character
of the member name.
EVEN – create new datasets and evenly distribute the
members across the number specified (default is 10).
nn – create as many datasets as necessary to place nn
members in each.
Sample JCL to run PDSSPLIT:
//jobcard…
//***************************************************************
//* SPLIT A PDS *
//* *
//* OPTION=ALPHA 1 DSN FOR EACH UNIQUE FIRST CHARACTER OF *
//* THE MEMBER NAME *
//* OPTION=EVEN SPLIT INTO 1Ø EQUAL DSNS (SAME AS EVEN 1Ø) *
//* OPTION='EVEN NN' SPLIT INTO 'NN' EQUAL DSNS *
//* OPTION=NN SPLIT INTO DSNS EACH HOLDING NN MEMBERS *
//***************************************************************
//PDSSPLIT PROC
//PDSSPLIT EXEC PGM=IKJEFTØ1,DYNAMNBR=99,PARM='PDSSPLIT &OPTION'
//SYSEXEC DD DSN=yourid.EXEC,DISP=SHR
48 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.