On Fri, 4 Apr 2014 19:01:22 +0000, Gibney, Dave wrote: >Do you really want this? Not attempting to be correct syntax: >Allocate dd(ddn1) dataset(dataset1) >Allocate dd(ddn2) dataset(dataset2) >Allocate dd(ddn3) dataset(dataset3) > >Concat ddlist(ddn1,ddn2) >Concat ddlist(ddn2,ddn3) > >Free dd(ddn1) > >If this frees both ddn1 and ddn2, then the second concat is broken > Willy-nilly, that situation appears not to arise (with correct syntax):
call AllocIt 'alloc dd(SYSLIB) shr dsn(SYS1.MACLIB)' call AllocIt 'alloc rtddn(CAT1) shr dsn(SYS1.MODGEN)' call AllocIt 'alloc rtddn(CAT2) shr dsn(SYS1.SAMPLIB)' say; say 'Allocated:' call DDinfo call AllocIt 'concat ddlist(SYSLIB,'CAT1')' say; say 'Catenated:' call DDinfo call AllocIt 'concat ddlist('CAT1','CAT2')' ==================== produces ========== Allocated: 1 SYSLIB SYS1.MACLIB 2 SYS00001 SYS1.MODGEN 3 SYS00002 SYS1.SAMPLIB 14 0 S99MSG.0 concat ddlist(SYSLIB,SYS00001) msg(2) Catenated: 1 SYS00002 SYS1.SAMPLIB 2 SYSLIB SYS1.MACLIB 3 (catenated) SYS1.MODGEN IKJ56868I FILE SYS00001 NOT CONCATENATED, A FILENAME SPECIFIED WAS NOT FOUND 18 70778880 S99MSG.0 concat ddlist(SYS00001,SYS00002) msg(2) Saved (sort of) by the IKJ56868I. -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN