© serviceprofessionalgmbh

Führt das SAVE-Kommando aus und startet das Programm. Der TSO-EXEC-Befehl wird für REXX oder CLIST generiert, abhängig davon, ob im Dateinamen der Qualifier EXEC oder CLIST vorkommt.

/* 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