Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to suppress bottom PF lines in panel from a rexx program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1232
Location: Israel

PostPosted: Tue Oct 17, 2006 4:49 pm    Post subject: How to suppress bottom PF lines in panel from a rexx program
Reply with quote

A free tip for REXX programmers working with ISPF panels:

Some users have "PFSHOW ON" and the 2 bottom lines of the panel are hidden.
This is how to solve the problem:

At the beginning of the REXX, do:
Code:
Address ISPEXEC "VGET (ZPFSHOW) PROFILE"
If ZPFSHOW <> "OFF" Then Do
   Stack = "PFSHOW OFF"
   Address ISPEXEC "DISPLAY PANEL(somepanelname) COMMAND(Stack)"
End
The panel is not displayed but the command (PFSHOW OFF in variable Stack) is executed.

Just before terminating the REXX execution, do:
Code:
If ZPFSHOW <> "OFF" Then Do
   Stack = "PFSHOW "ZPFSHOW
   Address ISPEXEC "DISPLAY PANEL(somepanelname) COMMAND(Stack)"
End
This will restore whatever option was active at the beginning of the execution.

Using this method you will never have a problem with PFSHOW hiding your panel stuff.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Oct 17, 2006 5:35 pm    Post subject:
Reply with quote

You can also try this one:

ADDRESS ISPEXEC "SELECT PGM(ISPOPF) PARM(PFK,ON)"
or
ADDRESS ISPEXEC "SELECT PGM(ISPOPF) PARM(PFK,OFF)"


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

REXX Moderator


Joined: 13 Mar 2006
Posts: 1232
Location: Israel

PostPosted: Tue Oct 17, 2006 7:13 pm    Post subject:
Reply with quote

Worked nicely too.
The only reference I found about ISPOPF is in "ISPF Planning and Customizing".
There are lots of program names there but no detailed info.
Do you have another reference?
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Tue Oct 17, 2006 7:35 pm    Post subject:
Reply with quote

Here is also another way to remove and restore the PFK settings.

SKEYSAVE:
"VGET (ZPFCTL)" PROFILE

ORGPFK = ZPFCTL
ZPFCTL = 'OFF'

"VPUT (ZPFCTL ORGPFK)" PROFILE

SIGNAL SKEYEXIT



SKEYTERM:
"VGET (ORGPFK)" PROFILE

IF ORGPFK = 'OFF'
THEN DO
ORGPFK = ''
END

ZPFCTL = ORGPFK
ORGPFK = ''

"VPUT (ZPFCTL ORGPFK)" PROFILE

SIGNAL SKEYEXIT
. . . . . . . . . . . . . . . . . . .
Back to top
View user's profile Send private message
lboppe

New User


Joined: 07 Jul 2011
Posts: 1
Location: india

PostPosted: Wed Mar 14, 2012 4:50 pm    Post subject: Reply to: How to suppress bottom PF lines in panel from a re
Reply with quote

Hi Ofer71,

I could not access the link provided, could you please share the list of ISPF programs similar to ISPOPF. Actually I have one requirement to invoke the REFLISTD command from REXX program using the SELECT PGM service, so this list might be helpful.


Quote:


Posted: Tue Oct 17, 2006 7:19 pm Post subject:

--------------------------------------------------------------------------------

I have the same list you have. I just love to play with it...

O.

Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 655
Location: Whitby, ON, Canada

PostPosted: Wed Mar 14, 2012 6:02 pm    Post subject:
Reply with quote

Another way to prevent PFSHOW from disabling fields on your panel is to make the panel scrollable. Very easy to do with the )AREA statement, and it lets the user expose any overlaid fields by using the scroll keys.

I am now in the habit of making all of my panels scrollable, whether they are likely to need it or not.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Mar 14, 2012 6:33 pm    Post subject: Reply to: How to suppress bottom PF lines in panel from a re
Reply with quote

Quote:
whether they are likely to need it or not.


They all need it. Being able to scroll helps in a split screen situation.
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Thu Mar 15, 2012 12:50 pm    Post subject: Re: Reply to: How to suppress bottom PF lines in panel from
Reply with quote

lboppe wrote:
Actually I have one requirement to invoke the REFLISTD command from REXX program using the SELECT PGM service

To lboppe:
A good source for this is the ISPF command table utility, usually option 3.9.
You might find the following entries:
Code:
Verb      T  Action                                               
REFACTD   0  SELECT PGM(ISRDSLST) PARM(PL1 &ZPARM) SUSPEND       
REFACTL   0  SELECT PGM(ISRDSLST) PARM(LL1 &ZPARM) SUSPEND       
REFADDD   0  SELECT PGM(ISRRSLST) PARM(PLA &ZPARM)               
REFADDL   0  SELECT PGM(ISRRSLST) PARM(LLA &ZPARM)               
REFLISTD  0  SELECT PGM(ISRDSLST) PARM(PL1 REFLIST &ZPARM) SUSPEND
REFLISTL  0  SELECT PGM(ISRDSLST) PARM(LL1 REFLIST &ZPARM) SUSPEND
REFOPEND  0  SELECT PGM(ISRDSLST) PARM(PL2) SUSPEND               
REFOPENL  0  SELECT PGM(ISRDSLST) PARM(LL2) SUSPEND               

Hope this helps!
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10277
Location: italy

PostPosted: Thu Mar 15, 2012 1:23 pm    Post subject: Reply to: How to suppress bottom PF lines in panel from a re
Reply with quote

since pfshow is a personal choice it is just plain wrong
to turn it off/on according to a developer whim.

it is the developer who should write <whatever> according to the <rules>

if the two lines of the pfshow limit the data display capabilities of the panel ...
it is not an ISPF problem, is a poor application design.
just review the application to have it respect more the ISPF programming guidelines
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Mar 15, 2012 2:11 pm    Post subject: Reply to: How to suppress bottom PF lines in panel from a re
Reply with quote

How did TS tailgating a near six-year-old topic not get the usual "breakdown"?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10277
Location: italy

PostPosted: Thu Mar 15, 2012 2:22 pm    Post subject: Reply to: How to suppress bottom PF lines in panel from a re
Reply with quote

icon_redface.gif

here is the usual ... topic has been resurrected after
Code:
...          5 year(s) - (months difference / 12 )
...          6 year(s) - (difference )
...         65 months
...       1974 days
...      47397 hours
...    2843835 minutes
...  170630100 seconds


I usually notice when the last post is the resurrecting one


it is normal for a link not to work after such a long time
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1028
Location: Oostende, Belgium

PostPosted: Thu Mar 15, 2012 3:56 pm    Post subject:
Reply with quote

Why don't the moderators close threads three months after the last posting made in them. I know I do so at the support site for "that" publicly accessible z/OS system...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Iterative use of a REXX script causin... bryonyh CLIST & REXX 0 Fri Jul 28, 2017 12:52 pm
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us