MVS Jan 2005.p65 - CBT Tape

* */
/* Use a number to create multiple PDSs with that number of members */
/* Use ALPHA to create a PDS for each letter of the alphabet */
/* Use EVEN nn to create nn PDSs with an even portion of members */
/* */
/* Known issue: a single member copy does not work (creates PS DSN?) */
/*********************************************************************/
/* Change Log */
/* */
/* Author Date Reason */
/* -------- --------- ----------------------------------------- */
/* */
/*********** @REFRESH BEGIN START 2ØØ4/Ø3/Ø6 13:16:32 *************/
/* Standard housekeeping activities */
/*********************************************************************/
call time 'r'
parse arg parms
signal on syntax name trap
signal on failure name trap
signal on novalue name trap
probe = 'NONE'
modtrace = 'NO'
modspace = ''
call stdentry 'DIAGMSGS'
module = 'MAINLINE'
push trace() time('L') module 'From:' Ø 'Parms:' parms
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'
call modtrace 'START' Ø
/*********************************************************************/
/* Set local estoeric names */
/*********************************************************************/
@vio = 'VIO'
@sysda = 'SYSDA'
/*********** @REFRESH END START 2ØØ4/Ø3/Ø6 13:16:32 *************/
/* Accept and validate parms */
/*********************************************************************/
arg parm evencount .
if parm = '' then
parm = 'ALPHA'
select
when datatype(parm,'W') = 1 then parm = parm
when parm = 'ALPHA' then parm = 'ALPHA'
when parm = 'EVEN' then
do
parm = 'EVEN'
if evencount = '' then evencount = 1Ø
end
otherwise
call rcexit 2Ø 'Invalid parm:' parm', whole number, "ALPHA"',
'or "EVEN"'
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
51