©
serviceprofessionalgmbh
Executes the SAVE command and starts the program. The TSO EXEC Command is generated for REXX or CLIST depending on the
qualifier in the data set name EXEC or CLIST.
/* REXX * EDIT MACRO *************************************************/
/* */
/* Macroname.: RUN */
/* */
address isredit
"macro (params)"
"(dsn) = dataset"
if pos(".EXEC",DSN) + pos(".CLIST",DSN) > 0 then do
"(mem) = member"
"save"
if pos(".EXEC",DSN) > 0 then params = params"'EXEC"
address tso "ex '"dsn"("mem")' '"params
end
else do
ZEDSMSG = "Falscher Bibliothekstyp"
ZEDLMSG = DSN "ist keine REXX oder CLIST Bibliothek"
address ispexec "setmsg msg(ISRZ000)"
end
exit
back to Edit Macros