Lynne
New User
Joined: 15 Jan 2015
Posts: 93
Location: USA
|
|
|
|
Pedro, I remember you mentioning something you had written so that panels that had been written with instructions on top - that you added some code so that a user could hide those instructions once they became familiar with the panel?
Could you point me to that if you still have it available here?
Thanks, |
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
Yes, I presented this topic at SHARE in 2016: "Using Panel Exits to Dynamically Display/Hide Panel Lines".
In short, it involves the use of a panel input exit. IBM provides a sample exit, ISPPXMNX, which is briefly described in "ISPF Dialog Developer's Guide and Reference". The source is included in the manual and also in SISPSAMP. You will have to create the load module. They also provide a sample panel ISPPXMNP in the ISPF samples library ISP.SISPSAMP.
In short, the exit supports <IF and </IF> statements, like:
| Code: |
&ZSEL = TRANS (TRUNC (&ZCMD,’.’)
1,’PGM(ISFISP) NOCHECK NEWAPPL(ISF) SCRNAME(SDSF)’
2,’PGM(DGTFMD01) PARM(&ZCMD) NEWAPPL(DG) SCRNAME(DFSMSDFP) NOCHECK’
3,’PANEL(ICHP00) SCRNAME(SECURITY)’
<IF &USRTASK=UNIX>
4,’PGM(ISRUUDL) PARM(ISRUUDLP) SCRNAME(UDLIST)’
5,’CMD(ISHELL) SCRNAME(ISHELL)’
</IF>
X,EXIT
|
Where individual panel statements are used or discarded depending on the <IF> condition being true or not. In this way, you can hide the top instructions.
You have to provide other logic to set the <IF> variable correctly prior to the panel being displayed. Maybe set the variable in an OPTIONS panel for your app.
Lynne, send me a PM with your email address and I will send you the presentation handouts. |
|
