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

question for Pedro


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

New User


Joined: 15 Jan 2015
Posts: 93
Location: USA

PostPosted: Mon Mar 06, 2023 12:47 am
Reply with quote

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,
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Mon Mar 06, 2023 11:21 am
Reply with quote

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.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Mon Mar 06, 2023 12:59 pm
Reply with quote

Alternatively I have a panel exit to generate the entire panel from a REXX, see the ISPDPX01 program here: harders-jensen.com
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 Question for file manager IBM Tools 7
No new posts question on Outrec and sort #Digvijay DFSORT/ICETOOL 20
No new posts panel creation question TSO/ISPF 12
No new posts Sort w/OUTREC Question DFSORT/ICETOOL 2
No new posts Assembler test under mask question PL/I & Assembler 5
Search our Forums:

Back to Top