MVSFORUMS.com

[Premkumar]

... temporarily in a Rexx application?

Use LIBDEF with STKADD option.
Example:

[arindam]

I guess that your requirement is to concatenate any personal dataset to any ISPF DD. You can use the CLIST example given below. Here, it concatenates your dataset with DD SYSPROC (this DD name you can change ). Your dataset will be the first one of all datasets concatenated to the DD (verify with ISRDDN). But, everytime you log on, you have to run this CLIST to concatenate. To avoid this, you can include it at the startup.
cheers .

************************ Top of Data *************************

PROC 0 UNEXTEND
CONTROL NOMSG NOPROMPT NOFLUSH

IF &SYSDSN('USER.DEF.LIB') = DATASET NOT FOUND +
THEN +
DO
LISTDSI 'SYS1.TSOCLIST'
ALLOC DA('USER.DEF.LIB') NEW TR SP(30,10) LRECL(80) +
RECFM(F B) BLKSIZE(&SYSBLKSIZE) DIR(5) REL
END

FREE DA('USER.DEF.LIB')

%GPDDCAT SYSPROC 'USER.DEF.LIB' &UNEXTEND

EXIT CODE(&LASTCC)

*********************** Bottom of Data ***********************
_________________
Thanks and Regards,
Arindam

[semigeezer]

LIBDEF is the way to go for ISPF ddnames (sysproc is not an ISPF ddname) because ISPF keeps those files open. An interesting addition to the use of LIBDEF is that by creating a temporary PDS from within your program, and then LIBDEFing to it as needed, you can actually imbed ISPF panels, messages and skeletons directly within your program. See the exec ISRSETLN as an example. It has a panel and message member within it.