Do something like this : /* 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
You may have to allocate SMPTABL if your logon proc doesn't do it, and libdef the other ISPF libraries Paul ---------------------------------------------------------------------- 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
