/* REXX -- */ ADDRESS "ISREDIT" "MACRO (NAME OPTIONS)" /*********************************************************************/ /* Purpose: Macro to exec the TSO clist as existing in sys1.tsoclist*/ /* without having to use realloc or making a copy for a day*/ /* in user clist. Named as @ TSO e(X)ecute. */ /* Related Clists -- @TSO @TSOX @TSOD GETCLIST DDNAME */ /* Contributed: F. David McRitchie 1986/06/05 */ /* redone in REXX 1994/06/01 */ /* User contact: F. David McRitchie */ /* Code maint.: Systech group */ /* Documented: is03.share.text(@tsox) */ /* Related clists: @TSO @TSOX @TSOXD @TSOD GETCLIST DDNAME */ /* useful only at "The REXX Macros Toolbox" */ /*********************************************************************/ CHK = SYSDSN("'SYS1.TSOCLIST("name")'") IF chk = "OK" THEN DO IF options = "" THEN DO SAY "NOW INVOKING -- EXEC 'SYS1.TSOCLIST("NAME")'" address "TSO" "EXEC 'SYS1.TSOCLIST("name")'" Exit RC END ELSE DO SAY "NOW INVOKING -- EXEC 'SYS1.TSOCLIST(&NAME)' '"OPTIONS"'" address "TSO" "EXEC 'SYS1.TSOCLIST("NAME")' '"OPTIONS"'" END Exit RC END SAY "SYS1.TSOCLIST("NAME") -- "CHK /*CONTROL LIST CONLIST SYMLIST*/ address "TSO" "%"NAME "'"OPTIONS"'" Exit RC