/* REXX -- */ ADDRESS "ISREDIT";"macro (aoptions)" /* PURPOSE: MACRO TO EXEC THE TSO CLIST CURRENTLY IN EDIT */ /* @ TSO E(X)ECUTE (D)ISPLAY */ /* RELATED CLISTS -- @TSO @TSOX @TSOD GETCLIST DDNAME */ /* CONTRIBUTED: F. David McRitchie 1986/06/05 */ /* USER CONTACT: F. David McRitchie */ /* CODE MAINT.: SYSTECH GROUP */ /* DOCUMENTED: IS03.SHARE.TEXT(@TSOXD) */ /* RELATED CLISTS: @TSO @TSOX @TSOD GETCLIST DDNAME */ /* THE SPFPC EQUIVALENT IS @CMD.CMD -- */ /* IS03.SPF2.MACROS(CMD) */ /* @TSOXD 01.03 1986/06/05 1994/05/23 14:40 47 33 47 IS03*/ /* 1994/06/01 converted to REXX */ "(DSNX) = DATASET" "(MEMBERX) = MEMBER" "(DCHG) = DATA_CHANGED" AOPTIONS = translate(AOPTIONS) IF DCHG = "YES" THEN DO say left("*",71,"*") say left("* YOUR FILE HAS NOT BEEN SAVED", "AFTER MAKING changes",70)"*" say left('*',70,"*") say left("* THEREFORE YOUR REQUEST WILL NOT BE HONORED -- SEE"||, "ALSO @TSOX CLIST",70)"*" say left("*",71,"*") ZEDSMSG = "NOT SAVED" ZEDLMSG = zedsmsg" -- DID NOT ATTEMPT TO EXECUTE DISPLAYED CLIST" Address "ISPEXEC" "SETMSG MSG(ISRZ000)" Exit 12 END IF MEMBERX \= "" then DSNX = DSNX"("MEMBERX")" callx = "'"dsnx"'" CHK = SYSDSN(callx) callx = "Address ""TSO"" ""EXEC""" """"callx"""" IF "OK" = CHK THEN DO IF AOPTIONS = "" then null else callx = callx """'"aoptions"'""" SAY "NOW INVOKING --" callx interpret callx Exit RC END SAY DSNX "--" chk exit rc