MVSFORUMS.com

lordsmiter · Beginner Joined: 12 Feb 2004 Posts: 4 Topics: 1

hi,

I have a new dialog/application and I want it to be started with a simple 3 character command anywhere in ISPF. As soon as the user types in ISPF and gets to the primary option menu they should be able to type in a 3 character command and bring up my application.

I have a rexx that will instantly write my command to the locked ISPCMDS table which is already allocated/open. The problem is that ISPF has to be started for it to run....cannot run in TSO mode (aka the READY prompt)

Allocations for my application have already been taken care of with a logon script.

This would be easy if I could edit the primary option menu (ISR@PRIM) but, I want the users to be able to pull the system one not my edited one.

So basically I need a way to get that rexx to run when ISPF starts so the user can type in my command and go. I have got this to work by running my exec after ISPF starts and the command is inserted into the table and I can zoom along at will. But this must be automatic somehow.

Any ideas? or is this just way out there?

If more clarification is needed...let me know. Thanks.

warp5 · Posted: Thu Feb 12, 2004 1:53 am Post subject:

I think you are looking for ISPCMDS. How you set this up depends upon what release of OS390/ZOS you are running. You can set it up so that your own rexx procedures can run without entering TSO before them. Look in your Utilities (Option 3) at Commands (Option 9), ISP should already be in your application ID, Enter and you will see your ISPCMDS table. Here is an example entry that we use:
DVEXEC 3 SELECT SUSPEND CMD(DVEXEC &ZPARM)

This should help get you started.

lordsmiter · Beginner Joined: 12 Feb 2004 Posts: 4 Topics: 1

But ISPCMDS is a system table. I cannot edit it directly. The only thing I can do to that is dynamically append my command to it every time someone logs in to ISPF witn a rexx exec (which i already have). The problem is that this command needs to be available as soon as the primary option menu is displayed.

The command would be simple:

XXX 0 SELECT PANEL(XXXXXXXX)

This would go straight into the menu of my application.

I just cant seem to get it into the ISPCMDS command table, automatically, as soon as ISPF loads.

taltyman · Posted: Thu Feb 12, 2004 8:25 am Post subject:

If you go to option 3.9 you will see the command tables that are in effect at your site. There will be an application table which will be tied to the application that you are in, this may be ISR that IBM provides but will change based on the application you are in. A sytem table, hopefully ISP, again supplied by IBM. The other 2 are the site table which can be unique to your site or company, and a user table which is unique to you. Unless you want to add your command to the ISP system table (and then maintain it everytime IBM makes any changes) you will need to have ISPF set up to allow site and/or user tables. That is what we do at our site. It's easy to set up. Here is a subset of my 3.9 screen shot.

Application table : ISR
User table . . . . : USR
Site table . . . . : TXU
System table . . . : ISP

See SYS1.ISPCLIB(ISPCCONF) (may be a different dataset based on how your sysprog installed your os/390 or z/OS) to configure ISPF settings for your shop.

lordsmiter · Beginner Joined: 12 Feb 2004 Posts: 4 Topics: 1

Mine looks like this:

Application table : ISR
User table . . . . :
Site table . . . . :
System table . . . : ISP

I tried adding the command i want to the ISRCMDS table, but when ispf starts....it is not reading that table. The only table that seems to be being read is the ISPCMDS. Is there something I can do at startup of ISPF so that the ISR table is read/opened automatically? Surely there has to be a way to have a personal command available for use as soon as ISPF loads.

taltyman · Posted: Thu Feb 12, 2004 2:35 pm Post subject:

Ask your friendly sysprog that maintains ISPF to configure ISPF to allow the user and site tables. There is no reason that I can think of not to do so. Until they do that ISPF will not read your personal cmd table.

lordsmiter · Beginner Joined: 12 Feb 2004 Posts: 4 Topics: 1

well if only it were that easy. creativity is stifled at my site.

no this is an application only for my department. personal ispf custimization is viewed as treason to the leash holders.

oh and ISPCCONF is not located in any SYS1, SYS2, or SYS3 library at my site. see what i mean.

that is why everything needs to be dynamic. dynamic allocations...dynamic entries to the command table.

Maton_Man · Beginner Joined: 30 Jan 2004 Posts: 123 Topics: 0

The works for me and I think it should work for you.

Presumably the last thing your logon script does is invoke ISPF. It may do the via the ISPF command or ISPSTART. Change this to do:

ISPSTART CMD(%MYENV)

In the command MYENV which I have written in Rexx you simply use:

/* Rexx */

myenv:

address ispexec

ZCTVERB = "XYZ"
ZCTTRUNC = ""
ZCTACT = "SELECT PANEL(XYZ)"
ZCTDESC = "XYZ Application"

"TBADD ISPCMDS"

"SELECT PANEL(ISP@MSTR)" /* Point this to your primary menu */

exit
_________________
My opinions are exactly that.

warp5 · Posted: Fri Feb 13, 2004 1:58 am Post subject:

Like I said in my first post, how to set up ISPFCMDS depends upon what release you have. You do need to look at the documentation for your system. Changes to ISPFCMD are first done in a working set ! I have 4 rexx's that take care of this handling for me.