IBM Mainframe Forum

OK, I'm a little new to this Dialog stuff so I'm justing trying to figure it out. Hopefully someone can help me.

I got a REXX from another post on this board on how to execute ISPF SELECT commands to start multiple screens when logging on. Here is the code named STRTPDF3:

/*REXX*/
ADDRESS ISPEXEC
NEW = "NEWAPPL(PDF) SUSPEND"
"SELECT PGM(ISPSTRT) PARM(SCRNAME EJES PERM;S.H;SWAP) " NEW
"SELECT PGM(ISPSTRT) PARM(SCRNAME MYDSL PERM;3.4;SWAP) " NEW
EXIT

The code works fine when I execute it after I am logged on to ISPF. However, I am trying to have it execute automatically when I log on. I have this statement in my login CLIST:

EXIT: +
PDF CMD(%STRTPDF3) NEWAPPL(PDF)
END

When I try to exexcute it at logon, the TSO session just freezes and never responds and I have to get an operator to cancel my session.

I guess my question is can I do this and if so, what am I doing wrong? As I said. the REXX works fine if I am already logged on. Thanks.

Normally, your TSO procedure will run a CLIST or REXX to allocate files and invoke ISPF. This is a PARM in your LOGON JCL.

How do you execute your REXX at LOGON? Has ISPF been called already?

Bill Dennis wrote:Normally, your TSO procedure will run a CLIST or REXX to allocate files and invoke ISPF. This is a PARM in your LOGON JCL.

How do you execute your REXX at LOGON? Has ISPF been called already?

My understanding is that this command is supposed to do both. This command is at the bottom of the login CLIST. This command I thought invokes ISPF(PDF) then executes the REXX program STRTPDF3 (listed in my original post).

PDF CMD(%STRTPDF3) NEWAPPL(PDF)

I am working around an initial menu panel that our shop uses by default. It is not very user-friendly. So when that menu is displayed, I then hit PF3 to exit that menu and this command from my initial TSO login panel is executed automatically (Command ===> EXEC D250TTL.ISPF.CLIST(alculib)). It is basically a copy of the original login script with a couple of libraries added to the concatenation.

If I specify a panel in this command like PANEL(ISR@PRIM) the script works fine. It is just when I try to execute the REXX exec instead of the panel that it has a problem.