View previous topic :: View next topic |
Author |
Message |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Sun Aug 03, 2003 11:02 pm Post subject: Panel Library |
|
|
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 |
|
 |
taltyman JCL Forum Moderator

Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Mon Aug 04, 2003 7:43 am Post subject: |
|
|
Should be in the IBM supplied panel library SISPPENU. In your case that should be ISP.SISPPENU. |
|
Back to top |
|
 |
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Mon Aug 04, 2003 12:40 pm Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Mon Aug 04, 2003 11:10 pm Post subject: |
|
|
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 |
|
 |
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Mon Aug 04, 2003 11:52 pm Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Tue Aug 05, 2003 1:13 am Post subject: |
|
|
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 |
|
 |
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Tue Aug 05, 2003 4:59 am Post subject: |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Fri Aug 08, 2003 7:28 am Post subject: |
|
|
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
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Aug 13, 2003 6:40 am Post subject: |
|
|
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
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 |
|
 |
taltyman JCL Forum Moderator

Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Wed Aug 13, 2003 8:06 am Post subject: |
|
|
Try something like this...
EZ,'CMD(%EZ &ZTRAIL)' |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Aug 13, 2003 9:15 am Post subject: |
|
|
No use taltyman. But its behaving the same. Its not taking the parameters after the space. |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Aug 13, 2003 9:21 am Post subject: |
|
|
Please hold on. It behaves a bit differently when invoked in different ways.
Sample 1
The parameters passed is 'EZ.1'
But When I invoke it as
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 |
|
 |
taltyman JCL Forum Moderator

Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Wed Aug 13, 2003 3:50 pm Post subject: |
|
|
what happens when you enter =EZ;1 NDM144DP |
|
Back to top |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Aug 13, 2003 10:58 pm Post subject: |
|
|
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 |
|
 |
|
|