On Thu, Feb 11, 2016 at 8:05 AM, Ed Gould <[email protected]> wrote:
> John,
>
> There *MAY* be a way, albeit adding an extra step to do so.
> But I don't think that is what he wanted.
>
I think so too. I already _have_ a way to do something like what the OP
wanted. And it even includes all my options, except for the changing &
naming of the members involved. Basically, I can _easily_(?) unload the
members from any, or multiple, PDS library to a sequential DD. But I do an
"evil" thing. I use a UNIX step which run programs from Dovetailed
Technologies.
//UNLOAD EXEC PROC=COZBATCH
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDIN DD *
#
# copy contents of all members whose
# names start with A to
# the DD OUTPUT
pdsdir some.pds |\
egrep '^A' |\
while read pdsmem;do
fromdsn "//some.pds($pdsmem)"
done |\
todsn "//DD:OUTPUT"
#
# copy all members from dsn=pds2 whose names end with a B
# and from dsn=pds3 whose name contain an E to
# the DD OUTPUT2
{ pdsdir pds2 |\
egrep 'B$' |\
while read pdsmem;do fromdsn "//pds2($pdsmem)";done
pdsdir pds3 |\
egrep 'E' |\
while read pdsmem;do fromdsn "//pds3($pdsmem)";done
} | todsn "//DD:OUTPUT2"
/*
//OUTPUT DD SPACE=(CYL,(20,10),RLSE),
// DCB=(some.pds,DSORG=PS),
// DISP=(,PASS)
//OUTPUT2 DD SPACE=(CYL,(100,10),RLSE),
// RECFM=?,DSORG=PS,LRECL=?,BLKSIZE=0
// DISP=(,PASS)
//*
//* MORE STEPS
>
> Ed
>
>
--
The man has the intellect of a lobotomized turtle.
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
