Using ZPFCTL to control display of PF Keys

Discussion:

(too old to reply)

Ken MacKenzie

2006-12-14 14:20:10 UTC

Hi,

I have the following code in a few of my execs but just recently it seems
to have stopped working.

Init:
"VGET ZPFCTL"
xpfctl = zpfctl
zpfctl = 'OFF'
"VPUT ZPFCTL"
Return
Terminate:
zpfctl = xpfctl
"VPUT ZPFCTL"
Return

I don't usually run with my PF Keys showing so I didn't notice a problem
but while developing a new panel, I switched them back on expecting this
code to work and it didn't.

It's supposed to ensure that, whatever the user's current settings, the PF
Keys won't be displayed but they will be switched back to the user's
preference on termination.

I'm currently running on z/OS 1.7 and I have access to z/OS 1.5 but I don't
know when it stopped working.

Any ideas?

Ken

Dave Salt

2006-12-14 15:34:14 UTC

Permalink

Hi Ken,

I've never wanted to stop a user from displaying his/her function keys, so
I've never set the ZPFCTL variable. However, I did find this in the manual:

Note: The system control variable ZPFCTL setting is ignored for panel source
definitions that contain the )PANEL statement.

HTH,

Dave Salt
SimpList(tm) - The easiest, most powerful way to surf a mainframe!
http://www.mackinney.com/products/SIM/simplist.htm

Subject: Using ZPFCTL to control display of PF Keys
Date: Thu, 14 Dec 2006 13:32:44 +0000
Hi,
I have the following code in a few of my execs but just recently it seems
to have stopped working.
"VGET ZPFCTL"
xpfctl = zpfctl
zpfctl = 'OFF'
"VPUT ZPFCTL"
Return
zpfctl = xpfctl
"VPUT ZPFCTL"
Return
I don't usually run with my PF Keys showing so I didn't notice a problem
but while developing a new panel, I switched them back on expecting this
code to work and it didn't.
It's supposed to ensure that, whatever the user's current settings, the PF
Keys won't be displayed but they will be switched back to the user's
preference on termination.
I'm currently running on z/OS 1.7 and I have access to z/OS 1.5 but I don't
know when it stopped working.
Any ideas?
Ken

_________________________________________________________________
Download now! Visit http://www.telusmobility.com/msnxbox/ to enter and see
how cool it is to get Messenger with you on your cell phone.
http://www.telusmobility.com/msnxbox/

Ken MacKenzie

2006-12-14 17:10:47 UTC

Permalink

Gosh, I wonder why!

Well spotted!

I've had a couple of occasions where users want as much info on one screen
as possible and that can mean using lines 23 & 24 (or 22 & 23 if you have
your command line at the bottom.)

I'm not necessarily saying that's a good thing but that's how it is.

Ken

Dave Salt
<***@HOTMAIL.CO
M> To
ISPF-***@listserv.nd.edu
Sent by: ISPF cc
discussion list
<ISPF-***@listserv. Subject
nd.edu> Re: Using ZPFCTL to control display
of PF Keys

Thu 12/14/2006
02:44 PM

Please respond to
ISPF discussion
list
<ISPF-***@listserv.
nd.edu>

Hi Ken,

I've never wanted to stop a user from displaying his/her function keys, so
I've never set the ZPFCTL variable. However, I did find this in the manual:

Note: The system control variable ZPFCTL setting is ignored for panel
source
definitions that contain the )PANEL statement.

HTH,

Dave Salt
SimpList(tm) - The easiest, most powerful way to surf a mainframe!
http://www.mackinney.com/products/SIM/simplist.htm

Rob Zenuk

2006-12-14 19:36:40 UTC

Permalink

Here is a trick (kludge) I have used to dynamically turn off and restore the
PFKey display on the bottom of a screen on behalf of a user with an unknown
setting. It saves the value of ZFKA (IIRC, I was not able VPUT a new value
into this variable) then uses the DISPLAY PANEL COMMAND option and passes in
the FKA OFF and FKA commands (if needed).

Before the display:

fkaset = 'OFF'
address ISPEXEC "VGET (ZFKA) PROFILE"
if zfka <> 'OFF' & sysvar('SYSENV') = 'FORE' then
do
fkaset = zfka
fkacmd = 'FKA OFF'
address ISPEXEC "CONTROL DISPLAY SAVE"
address ISPEXEC "DISPLAY PANEL(ISPBLANK) COMMAND(FKACMD)
address ISPEXEC "CONTROL DISPLAY RESTORE"
end

After the display (to restore):

if fkaset <> 'OFF' then
do
fkafix = 'FKA'
address ISPEXEC "CONTROL DISPLAY SAVE"
address ISPEXEC "DISPLAY PANEL(ISPBLANK) COMMAND(FKAFIX)"
if fkaset = 'SHORT' then
address ISPEXEC "DISPLAY PANEL(ISPBLANK)",
"COMMAND(FKAFIX)"
address ISPEXEC "CONTROL DISPLAY RESTORE"
end

IIRC, this was a challenge to figure out. The FKA command has an OFF option
to diable, but is a "toggle" for the two "on" options "LONG" and "SHORT".
In any case, this code works for me...

Hope This Helps,

Rob

Ken MacKenzie

2006-12-15 13:58:33 UTC

Permalink

Thanks Rob - that worked perfectly.

Incidentally, I have redesigned my current panel to not use lines 23 & 24
but this'll be useful for future reference.

Rob Zenuk

ISPF-***@listserv.nd.edu
Sent by: ISPF cc
discussion list
<ISPF-***@listserv. Subject
nd.edu> Re: Using ZPFCTL to control display
of PF Keys

Thu 12/14/2006
07:07 PM

Please respond to
ISPF discussion
list
<ISPF-***@listserv.
nd.edu>

Here is a trick (kludge) I have used to dynamically turn off and restore
the
PFKey display on the bottom of a screen on behalf of a user with an
unknown
setting. It saves the value of ZFKA (IIRC, I was not able VPUT a new
value
into this variable) then uses the DISPLAY PANEL COMMAND option and passes
in
the FKA OFF and FKA commands (if needed).

Before the display:

fkaset = 'OFF'
address ISPEXEC "VGET (ZFKA) PROFILE"
if zfka <> 'OFF' & sysvar('SYSENV') = 'FORE' then
do
fkaset = zfka
fkacmd = 'FKA OFF'
address ISPEXEC "CONTROL DISPLAY SAVE"
address ISPEXEC "DISPLAY PANEL(ISPBLANK) COMMAND(FKACMD)
address ISPEXEC "CONTROL DISPLAY RESTORE"
end

After the display (to restore):

if fkaset <> 'OFF' then
do
fkafix = 'FKA'
address ISPEXEC "CONTROL DISPLAY SAVE"
address ISPEXEC "DISPLAY PANEL(ISPBLANK) COMMAND(FKAFIX)"
if fkaset = 'SHORT' then
address ISPEXEC "DISPLAY PANEL(ISPBLANK)",
"COMMAND(FKAFIX)"
address ISPEXEC "CONTROL DISPLAY RESTORE"
end

IIRC, this was a challenge to figure out. The FKA command has an OFF
option
to diable, but is a "toggle" for the two "on" options "LONG" and "SHORT".
In any case, this code works for me...

Hope This Helps,

Rob