View previous topic :: View next topic
|
Author |
Message |
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
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 |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
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 |
|
|
lboppe
New User
Joined: 07 Jul 2011 Posts: 1 Location: india
|
|
|
|
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 |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
Stefan
Active User
Joined: 12 Jan 2006 Posts: 110 Location: Germany
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
How did TS tailgating a near six-year-old topic not get the usual "breakdown"? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
|