MVS Jan 2005.p65 - CBT Tape

end
call saydd msgdd 1 'Parm used:' parm
/*********************************************************************/
/* Make sure the INPUT DD exists */
/*********************************************************************/
call ddcheck 'INPUT'
source = sysdsname
/*********************************************************************/
/* Set initial defaults */
/*********************************************************************/
totcount = Ø
check = 1
last = ''
sets = -1
/*********************************************************************/
/* Get member names from the PDS */
/*********************************************************************/
call outtrap 'mem.'
"LISTDS '"source"' MEMBERS"
x = outtrap('off')
/*********************************************************************/
/* Set option specific defaults */
/*********************************************************************/
select
when parm = 'ALPHA' then mcount = Ø
when parm = 'EVEN' then
do
parm = format(((mem.Ø-7)/evencount),,Ø)
mcount = parm + 1
end
otherwise mcount = parm + 1
end
/*********************************************************************/
/* Process the members */
/*********************************************************************/
do i=7 to mem.Ø
totcount = totcount + 1
member = strip(mem.i)
/*********************************************************************/
/* Process ALPHA */
/*********************************************************************/
if parm = 'ALPHA' then
do
char1 = substr(member,1,1)
if char1 = last then
do
mcount = mcount + 1
sysin.mcount = cont(' 'member',')
end
else
52 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.