IBM Mainframe Forum

by **Quasar** » Sun Apr 07, 2013 9:37 am

Hi everyone,

I have written the following code to override the default ISPF Key assignments. I would like PF7(Scroll-Up) and PF8(Scroll-Down) to be handled by my application. However, the PF07 and PF08 keys still default to UP and DOWN.

Select all

ZPF7 = 'PREV'
ZPF8 = 'NEXT'
Address Ispexec "ADDPOP"
Address Ispexec "VPUT (ZPF7,ZPF8) PROFILE"
Say 'VPUT RC: ' RC
Address Ispexec "DISPLAY PANEL(DYNAREA)"
DISPLAY_RC = RC
ADDRESS ISPEXEC "REMPOP"
RETURN

At this point, I do not wish to define a new keylist with an APPLID. I tried searching the forum and other articles on the Internet, to override Pfkeys. But, I think I am missing something. Below is my ISPF Panel WYSIWIG code.

Select all

)ATTR
@ AREA(DYNAMIC) SCROLL(OFF)
Y TYPE(CHAR) COLOR(TURQUOISE) HILITE(REVERSE)
~ TYPE(CHAR) COLOR(GREEN)
$ TYPE(DATAIN) COLOR(TURQUOISE) HILITE(REVERSE)
_ TYPE(NEF) PADC(_)
| TYPE(TEXT) COLOR(YELLOW)
¢ TYPE(DATAOUT) COLOR(BLUE)
? TYPE(NT)
)BODY WINDOW(76,12) CMD(ZCMD)
| MINE - Structure Chart Generator
?Command ==> _ZCMD
?
+@DYNVAR,SHADVAR
+@
+@
+@
+@
+@
+@
+@
+@
)PROC
&PFKEY=.PFKEY
)END

Thank you very much.

by **Pedro** » Mon Apr 08, 2013 6:56 pm

Try using 07 and 08.

by **prino** » Mon Apr 08, 2013 8:17 pm

And if your application falls over, the user looses his or her PF7/8 settings.

Don't mess around with PF key settings, unless you create your own keylist or set the code up to run under a new APPLID:

Select all

parse value source with . . moi .

"ispexec vget (zapplid)"
if zapplid \= 'OOPS' then
do
"ispexec select cmd(%"moi {any parms}") newappl(OOPS)"
exit
end

by **Pedro** » Tue Apr 09, 2013 12:00 am

create your own keylist or set the code up to run under a new APPLID:

agree.

by **Quasar** » Wed Apr 10, 2013 11:26 pm

Thanks Pedro, it worked ZPF07 and ZPF08. I will now create a new key-list and run the application under my APPLID.

IBM Mainframe Forum

Overriding PFkeys

Overriding PFkeys

Re: Overriding PFkeys

Re: Overriding PFkeys

Re: Overriding PFkeys

Re: Overriding PFkeys