IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to edit ISPF Primary Menu


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 35
Location: pune

PostPosted: Thu Aug 07, 2008 4:41 pm
Reply with quote

Hi,
I want to add a new option to ISPF Primary Menu ISR@PRIM. For example, option 9 mentioned in the panel below. I want this new option should take me to another ISPF panel that I have created.

Menu Utilities Compilers Options Status Help
------------------------------------------------------------------------------
ISR@PRIM M&T Bank Primary Option Menu
Option ===>

0 Settings Terminal and user parameters
1 View Display source data or listings
2 Edit Create or change source data
3 Utilities Perform utility functions
4 Foreground Interactive language processing
5 Batch Submit job for language processing
6 Command Enter TSO or Workstation commands
7 Dialog Test Perform dialog testing
8 LM Facility Library administrator functions
9 NEW OPTION Goto Panel C

Any pointers on how this can be implemented?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Aug 07, 2008 6:26 pm
Reply with quote

The primary menu for you and who else ? Just you or every user of that panel ?
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 35
Location: pune

PostPosted: Thu Aug 07, 2008 6:39 pm
Reply with quote

Just for my ISPF primary menu.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Aug 07, 2008 7:37 pm
Reply with quote

If you have a personal panel library for development, it must be ahead of ISP. in the ISPPLIB concatenation of your TSO proc.

Copy in ISR@PRIM from ISP. library and modify it.
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 35
Location: pune

PostPosted: Fri Aug 08, 2008 11:00 am
Reply with quote

Bill,
Can you please elaborate on what u have written?
The panel that I have created is in my personal dataset. What do u mean by 'personal panel library for development'?
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Fri Aug 08, 2008 11:02 am
Reply with quote

Just concatenate your private panel library in front of other datasets within ISPPLIB.

O.
Back to top
View user's profile Send private message
Ekta Sharma

New User


Joined: 26 Feb 2008
Posts: 35
Location: pune

PostPosted: Fri Aug 08, 2008 11:27 am
Reply with quote

Do u mean using this statement in my rexx code(used for invoking the panel)?
"libdef ispplib DAtaset id('"userid()".exo.rexx') "

Currently I have used the following statement in my rexx code:
"ISPEXEC LIBDEF ISPPLIB DATASET ID('"MYLIB"')"
Here, 'MYLIB' holds the name of my another personal dataset where the panel code is present.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Fri Aug 08, 2008 6:44 pm
Reply with quote

LIBDEF is a way to temporarily place your dataset ahead of the system libs rather than my suggestion of changing the TSO logon PROC.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Aug 08, 2008 9:46 pm
Reply with quote

I think it is a little more complicated than using LIBDEF. The poster wants to replace the ISPF primary option menu, but doing so requires that it be done before ISPF starts or during the startup. Afterwards it is too late.

I think changing the ISPPLIB concatenation is the best choice. Some sites have CONCAT command. Others trap the response from a LISTA ST command, parse out the datasets currently allocated, then issue an ALLOC command with the new dataset added to the list.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Fri Aug 08, 2008 9:58 pm
Reply with quote

I tested a LIBDEF allocation and the next invocation of ISR@PRIM was my new panel.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Aug 08, 2008 10:03 pm
Reply with quote

My point was that the first invocation was not your customized panel, nor will split screen, nor probably STARTed screens, possible others, where you will get the normal panel.

If you have to issue a command to see the modified panel with the new funciton, then you might as well just start the new function.
Back to top
View user's profile Send private message
Josh Keller

New User


Joined: 08 Oct 2007
Posts: 36
Location: Columbia, SC

PostPosted: Fri Aug 22, 2008 8:50 pm
Reply with quote

Here's how I override the ISR@PRIM panel as I had this desire a while back.

First create a REXX to start ISPF. I called my ISPFF and I exec that after I sign on.

Code:
/*REXX ISPFF*/
ARG ARGS
"TRX ADD  FI(ISPPROF) DA('TSO."USERID()".ISPPROF') SHR"
"TRX ADD  FI(ISPPLIB) DA('TSO."USERID()".PDS') SHR"

/* START ISPF BUT EXEC #ISPF  FIRST TO SET UP ISPF TABLES ETC.*/
ADDRESS TSO "ISPSTART CMD(#ISPF) NOLOGO NEWAPPL(ISR) PASSLIB"



In here, allocate your ISPPLIB where your new panel is located, along with any other libriaries you want to allocate. I use TRX in my shop to do this, LIBDEF should work too. Also I had to allocate my ISPPROF DD for this to work, you may not.

The ISPSTART will exec a rexx I created called #ISPF, and that will display your new planel along with any other stuff you want to do each time you issue a START / SPLIT or start ISPF.

To avoid confusion, I named my new panel somthing else

Code:
/*REXX #ISPF*/
"ISPEXEC CONTROL ERRORS RETURN"
"ISPEXEC SELECT PANEL(MY@PRIM)"


If all that worked, you'll get your new panel.

Good luck.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts Query on edit primary command CLIST & REXX 5
No new posts Query on edit primary command CLIST & REXX 1
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
Search our Forums:

Back to Top