© 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