On 2025-10-02 21:04, Charles Mills wrote:
Okay, I had time to get back onto this. I have learned a little, but I have not solved my
problem. What is the problem? I would like to be able, in a REXX EXEC executed from ISPF,
to be able to read the setting of a given PF key, alter that setting, invoke VIEW and
have the setting be in effect, and then restore the setting to its previous value --
either explicitly -- or implicitly by not "saving" the change.
I have totally solved reading and writing the key tables.
TBOPEN ISRKEYS NOWRITE SHARE
KEYLISTN = "ISRSPEC"
"TBGET ISRKEYS"
Say "KEY4DEF =" KEY4DEF
KEY4DEF = "MYNEWKEY"
TBPUT ISRKEYS SAVE(KEY4DEF)
Does pretty much what it would seem like it should do. I can go into 3.16 and
see my change to ISRKEYS.
But it has zero effect on the working PF key definitions for VIEW.
From the start of one of my execs:
"ispexec vget (zpf01 zpf02 zpf03 zpf04,
zpf13 zpf14 zpf15 zpf16) profile"
pf.01 = zpf01
pf.02 = zpf02
pf.03 = zpf03
pf.04 = zpf04
pf.13 = zpf13
pf.14 = zpf14
pf.15 = zpf15
pf.16 = zpf16
cursor = 'ridsn'
error = 0
rbrowse = 'N'
routbv = 'V'
rodsn = ''
zcharcnl = 'NOCC'
"ispexec vput (zcharcnl) profile"
do loop = 1 by 1 until rc = 0
zpf01 = 'help'
zpf02 = 'end'
zpf03 = 'end'
zpf04 = 'end'
zpf13 = 'help'
zpf14 = 'end'
zpf15 = 'end'
zpf16 = 'end'
"ispexec vput (zpf01 zpf02 zpf03 zpf04,
zpf13 zpf14 zpf15 zpf16) profile"
rc = 0
do while rc = 0
ridsn = ''''strip(ridsn,, '''')''''
"ispexec display panel (rap00100) cursor("cursor")"
end
and at the very end I reset the PF keys...
Robert
--
Robert AH Prins
robert.ah.prins(a)gmail.com
The hitchhiking grandfather - https://prino.neocities.org/
Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
