On Fri, 19 May 2006 06:49:38 -0600, Paul Gilmartin <[EMAIL PROTECTED]> wrote:
>In a recent note, Beesley, Paul said: > >> Date: Thu, 18 May 2006 16:34:34 +0100 >> >> /* REXX */ >> gpmstcsi = arg(1) >> "ispexec vget (zapplid)" >> if zapplid <> "SMPE" then >> "ispexec select cmd(%DOSMPE" gpmstcsi") newappl(SMPE)" >> << Change DOSMPE to whatever you save this rexx as >> "ispexec vput (gpmstcsi)" >> "ispexec select PGM(GIMISCV) NEWAPPL(SMPE) NOCHECK PASSLIB" >> exit >> >Thanks. Very much what I was seeking. One small glitch: it >invokes the SMP/E dialog twice. This seems to concern the code: > > "ispexec vget (zapplid)" > if zapplid <> "SMPE" then > "ispexec select cmd(%DOSMPE" gpmstcsi") newappl(SMPE)" > << Change DOSMPE to whatever you save this rexx as > > Or this may be more clear (note the "else do / end" ) : /* REXX */ gpmstcsi = arg(1) "ispexec vget (zapplid)" if zapplid <> "SMPE" then , "ispexec select cmd(%DOSMPE" gpmstcsi") newappl(SMPE)" << Change DOSMPE to whatever you save this rexx as else do "ispexec vput (gpmstcsi)" "ispexec select PGM(GIMISCV) NEWAPPL(SMPE) NOCHECK PASSLIB" end exit -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group mailto: [EMAIL PROTECTED] Systems Programming expert at http://expertanswercenter.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
