MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Panel Library

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Sun Aug 03, 2003 11:02 pm    Post subject: Panel Library Reply with quote

I was trying to change the ISPF Primary Options menu, so that every time I logon/go to the main menu, it shows my name in graphical characters instead of the screen listing (ie 0 - Settings, 1 - View, 2 - Edit.....).

To do that I changed the ISR@PRIM panel in the system library (SYS2.USER.ISPPLIB, I found this library by running the ISRDDN utility).

Then I wanted to customize the DSLIST (3.4) panel. I found the following code in the ISR@PRIM panel.

Code:

 IF (&ZSAR = 'CAL','UPS','SES') &ZCMD = 'SP'                 
&ZSEL = TRANS (TRUNC (&ZCMD,'.')                             
  0,'PGM(ISPISM) SCRNAME(SETTINGS)'                           
  1,'PGM(ISRBRO) PARM(ISRBRO01) SCRNAME(VIEW)'               
  2,'PGM(ISREDIT) PARM(P,ISREDM01) SCRNAME(EDIT)'             
[b]  3,'PANEL(ISRUTIL) SCRNAME(UTIL)'                            [/b]
  4,'PANEL(ISRFPA) SCRNAME(FOREGRND)'                         
  5,'CMD(%OPTCMAIN)'    /* Invoke Scales */                   


I then tried to search for the ISRUTIL panel in the same library but the search was not successful. I searched for the panel in the following datasets displayed by the ISRDDN utility.

Code:

ISPPLIB     SYS2.USER.ISPPLIB       
            SYSTEMS.XA220.ISPPLIB   
            SYS2.STARTOOL.PANELS   
            SYS2.SCALES.PNLLIB     
            ISP.SISPPENU           
            SYS1.SBPXPENU           
            ISF.SISFPLIB           
            SYS2.VENDOR.ISPPLIB.NEW
            SYS1.EOY.SEOYPENU       
            SYS2.DB2C.ISPPLIB       
            SYS2.CASOFT.ISPPLIB     
            DIT.V1R3M0.SDITPLIB     
            SYS1.SERBPENU           
            SYS1.COB2PLIB           
            ENDEVOR.PROD.ISPPLIB   


But I couldn't find the panel (ISRUTIL). Can you please let me know where the other panels reside, so that I can have a look at them and modify them as I like.

I didn't want to write a new panel without knowing what things the system panels handle and how they are written.

Please help,
Thanks,
Back to top
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Mon Aug 04, 2003 7:43 am    Post subject: Reply with quote

Should be in the IBM supplied panel library SISPPENU. In your case that should be ISP.SISPPENU.
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Mon Aug 04, 2003 12:40 pm    Post subject: Reply with quote

In our shop it in ISP.SISPPENU

O.
________
166 S


Last edited by ofer71 on Sat Feb 05, 2011 11:00 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Mon Aug 04, 2003 11:10 pm    Post subject: Reply with quote

Taltyman and Ofer,

Thanks a lot. I found the member in the library you mentioned. Really don't know how I missed it b'cas I manually checked the member in each of the library that I have listed.

Also, I need some info on where the ISRUDL pgm resides. This pgm is called when the 3.4 panel is being invoked. I found the load of this pgm in ISP.SISPLOAD(ISRUDL). Can I get the source of it somewhere?

Any help will be greatly appreciated.

Thanks,
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Mon Aug 04, 2003 11:52 pm    Post subject: Reply with quote

Hi

To find a member's PDS, type 'M membername' in ISRDDN.

O.
________
Juggalos


Last edited by ofer71 on Thu Mar 17, 2011 10:33 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Tue Aug 05, 2003 1:13 am    Post subject: Reply with quote

Ofer,

That was of great help. Thanks. But as far as the ISRUDL is concerned, It didn't show me the code. Instead it said
Code:

Module    ISRUDL      was found to be already loaded. Note that         
invocations of this program name may pick up another copy from     
STEPLIB or a LIBDEF'ed data set or from a tasklib such as ISPLLIB.
Tab to a box and press enter to view the module in storage.       
.

As I said earlier, I wanted to customize the 3.4 panel. Now that I got the panel, I need the program source code as well, to handle my changes in the panel. Please let me know whether I can accomplish what I have just said above.

Thanks,
Back to top
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Tue Aug 05, 2003 1:45 am    Post subject: Reply with quote

Phantom -

Here is a snippest from Mr. Nadel's answer that I found in Google groups:
Quote:
ISRUDL is not an intended interface. It can, and does, change often.
But have a look at the LMDDISP and LMDLIST services or if you want to
add or modify how commands are handled (or what data sets get
displayed) look at the ISPF exits in the ISPF Planning and
customization book.


For more info:
  1. ISPF Services Guide.
  2. Discussions in Google Groups.
  3. DSlist utility by Mr. Lionel B. dyck.
  4. PDSFLIST utility.

O.
________
Chevrolet 150 specifications


Last edited by ofer71 on Sat Feb 05, 2011 11:01 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Tue Aug 05, 2003 4:59 am    Post subject: Reply with quote

Ofer,

Thanks for taking so much pain to help me. I need to look at the 4 links that have provided me. I have already worked with LMMDISP, LMDDISP. I was curious to know what was written in ISRUDL. I thought that it would be easy to modify a portion of existing code rather than writing a fresh one.

Anyway, thanks a lot for the research you have done. I will try to use LMDDISP against my modified ISRUDLP (3.4) panel.
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Fri Aug 08, 2003 7:28 am    Post subject: Reply with quote

As I said earlier, I was trying to customize 3.4 panel. So for testing purposes, I tried to change 3.5 panel (which I least use). I modified the ISRUTIL panel as follows.

Code:

.............
&ZSEL = TRANS (TRUNC (&ZCMD,'.')                       
  1,'PGM(ISRUDA) PARM(ISRUDA1) SCRNAME(LIBUTIL)'       
  2,'PGM(ISRUDA) PARM(ISRUDA2) SCRNAME(DSUTIL)'       
  3,'PGM(ISRUMC) SCRNAME(MCOPY)'                       
  4,'PGM(ISRUDL) PARM(ISRUDLP) SCRNAME(DSLIST)'       
/*5,'PGM(ISRURS) SCRNAME(RESET)' */                   
  5,'CMD(%EZ) SCRNAME(EAZYEDIT)'           
  6,'PGM(ISRUHC) SCRNAME(HARDCOPY)'                   
..................


It works fine. Whenever I say =3.5 from any screen it executes my REXX Program which is named 'EZ'. But the program is coded to receive upto 3 arguments.

1. A short cut name which identifies a PDS.
2. Member to be opened.
3. Other EZ functional commands.

I normally invoke the EZ utility from any screen by issuing a command like this
Quote:

TSO EZ EPP NAD338WP


This will open the dataset 'ENDEVOR.PROD.PROCLIB(NAD338WP)' for me.
Okay, now as I had mentioned in the beginning I have changed the 3.5 panel
Code:

5,'CMD(%EZ) SCRNAME(EAZYEDIT)'           


This opens the EZ window, But doesnot pass the parameters to it.

I invoked the utility like this
Quote:

=3.5 EPP NAD338WP


All I want is to pass "EPP NAD338WP" as argument to the invoked EZ Utility.

Can you please guide me on this.

Thanks,
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed Aug 13, 2003 6:40 am    Post subject: Reply with quote

I modified the ISR@PRIM panel to have a new option called 'EZ' after the ISPF 11 option.

I modified the panel code as shown below:
Code:

  V,'PANEL(&VPANEL)'                                           
  9,'PANEL(ISRDIIS) ADDPOP'                                   
 10,'PGM(ISRSCLM) SCRNAME(SCLM) NOCHECK'                       
 11,'PGM(ISRUDA) PARM(ISRWORK) SCRNAME(WORK)'                 
 EZ,'CMD(%EZ &ZCMD) SCRNAME(EAZYEDIT) NOCHECK'                 
  X,EXIT                                                       
 SP,'PGM(ISPSAM) PARM(PNS)'                                   
 VARSINIT,'CMD(%INITVARS)'          /* invoke INITVARS clist */
 ' ',' '                                                       
   *,'?' )                                                     
&ZTRAIL=.TRAIL                                                 


All I want is that whenever I issue a command similar to
Code:

=EZ.1 NDM144DP


The Parameters 1 and NDM144DP must be passed to the EZ program. If you look at my code I have given '%EZ &ZCMD'. So the entire the ZCMD text must be passed as parameter i.e. '=EZ.1 NDM144DP'.

But it is not happenning so. All parameters after first space are eliminated. So the parameter passed is 'EZ.1' only. If I give something like '=EZ 24 NDM144DP" then only 'EZ' is passed as argument and the arguments following a blank character i.e '24' and 'NDM144DP' are excluded somewhere & somehow.

Can any one of you please help me to solve this problem.

Thanks a lot,
Back to top
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Wed Aug 13, 2003 8:06 am    Post subject: Reply with quote

Try something like this...

EZ,'CMD(%EZ &ZTRAIL)'
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed Aug 13, 2003 9:15 am    Post subject: Reply with quote

No use taltyman. But its behaving the same. Its not taking the parameters after the space.
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed Aug 13, 2003 9:21 am    Post subject: Reply with quote

Please hold on. It behaves a bit differently when invoked in different ways.

Sample 1
Code:

=EZ.1 NDM144DP


The parameters passed is 'EZ.1'

But When I invoke it as
Code:

EZ.1 NDM144DP


The parameter passed is 'EZ.1 NDM144DP' Still the ZTRAIL should have eliminated the EZ. prefix. But it is not happening so.

Please help
Back to top
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Wed Aug 13, 2003 3:50 pm    Post subject: Reply with quote

what happens when you enter =EZ;1 NDM144DP
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed Aug 13, 2003 10:58 pm    Post subject: Reply with quote

When I enter '=EZ;1 NDM144DP' or 'EZ;1 NDM144DP', my program is invoked and the corresponding panel is displayed (Panel used in the EZ program). The panel contains a command line. The parameters '1' and 'NDM144DP' are then displayed on the command line. But my program is not set to receive parameters like this.

There are two ways to pass parameters to my code. One is via Command line arguments, like as I have mentioned in all my posts above. And the second one is to enter the parameters in the fields provided for them.

For Example: this is how my panel looks like:
Code:

COMMAND ===>                                                                    
                                                                              
    MEMBER NAME   :                                          DATASET NUMBER   :     24       
    DATASET LIST  :                                          MODE (E / V / B) :     E       
                               DATASET NAMES                                     
01)    ENDEVOR.PROD.PROCLIB                    02)    ENDEVOR.PROD.SOURCE.OUTPUT         
03)    ENDEVOR.PROD.CNTLCARD                   04)    ENDEVOR.PROD.EXECJCL               
05)    ENDEVOR.PROD.COPYLIB                    06)    ENDEVOR.QAP.EXECJCL                
07)    ENDEVOR.UAT.CNTLCARD                    08)    ENDEVOR.SIT.EXECJCL                
09)    T.CRD.A427541.PROCLIB                   10)    T.CRD.A427541.SOURCE               
11)    ENDEVOR.UAT.PROCLIB                     12)    T.CRD.A427541.CNTLCARD             
13)    NET.CONDIR*.PROCESS.LIB                 14)    T.CRD.A427541.EXECJCL              
15)    ENDEVOR.PROD.FORM                       16)                                       
17)    TSONJAY.REXX                            18)    TSONJAY.REXX.MESSAGES              
19)    TSONJAY.REXX.UTILS                                                                
20)    TSONJAY.REXX.PANELS                                              |          |
21)    TSONJAY.REXX.REXXJCL                                             |          |
22)    T.TSONJAY.CRS273DP.R060H.OREPORT*                                |  HIDDEN  |
23)    T.MFINDIA.REXX.BACKUP                                            |   MODE   |
24)    T.MFINDIA.PANEL.NEW                                              |          |
25)    T.MFINDIA.MESSAGE                                                |          |



The first argument that I pass i.e. the no. automatically is passed to the 'Dataset Number' Field and the Second argument 'NDM144DP' is passed to the member name and my program immediately opens the PDS specified by the dataset number along with the member provided. The mode of opening 'Edit/View/Browse' is determined by the 'Mode' field.

So when I invoke the command as you have mentioned '=EZ;1 NDM144DP' then my Panel looks liks this.

Code:

COMMAND ===> 1 NDM144DP                                                   
                                   
    MEMBER NA    :    INVALID COMMAND - TYPE HELP FOR MORE INFO.    :    UMBER   :     24     
    DATASET L        V / B) :     E       
                               DATASET NAMES                                   
01)    ENDEVOR.PROD.PROCLIB                    02)    ENDEVOR.PROD.SOURCE.OUTPUT        
03)    ENDEVOR.PROD.CNTLCARD                   04)    ENDEVOR.PROD.EXECJCL              


An error message 'INVALID COMMAND - TYPE HELP FOR MORE INFO' is displayed on a POPUP window (Not shown clearly in the panel above).

Please give me your suggestions,
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group