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 [email protected] with the message: INFO IBM-MAIN
