Hi Clem,
I'm not sure if the dd option LIKE is available at
your mvs level, if it is then an iefbr14 step
before your copy would allocate the new dataset
with minimal jcl
Step 1
exec iefbr14
//newds? dd dsn=SYS3.TESTPDS3.ASM,
// like=SYS1.MACLIB,disp=(new,Keep),
// vol=ser=work01
Step2
?exec iehmove
apologies for the font etc, typing on my phone
Regards,
Tom
botongrui, aka ¦Ó¦Òm.