Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
Author Message
Marso

Senior Member


Joined: 13 Mar 2006
Posts: 337
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
References
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 1973
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

Senior Member


Joined: 13 Mar 2006
Posts: 337
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
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 1973
Location: Israel
PostPosted: Tue Oct 17, 2006 7:19 pm    Post subject:
Reply with quote
I have the same list you have. I just love to play with it... icon_biggrin.gif

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

Active User


Joined: 24 May 2006
Posts: 126
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1