Problem with function Keys usage in REXX

raam · New User Joined: 29 Jan 2007 Posts: 13 Location: mumbai

Hi,

I was trying use function key intervention in my rexx program using the syntax.

"ISPEXEC VGET (ZPFKEY) ASIS"
if ZPFKEY ='PF03' then exit

But this intervention is working for only PF KEys PF03 and PF15.

But when im trying to intervene PF01 with my help feature, it is not going in to the routine i wrote but rather going to default help routine in TSO.

So this means PF keys intervention works only for PF03 and PF15 keys.

Or any syntax needs to be added in Rexx program for PF01 keys

Regards,
Raam

dick scherrer · Posted: Tue Jun 19, 2007 1:41 pm

Hello,

You told the program what to do when "PF03" is detected.

What did you tell the program to do when any other PF is detected (i don't see anything)?

Is there more code that you did not post?

raam · New User Joined: 29 Jan 2007 Posts: 13 Location: mumbai

Hi,

Here is the part of code:

"ISPEXEC DISPLAY PANEL(TDPN0001)"
"ISPEXEC VGET (ZPFKEY) ASIS"
if ZPFKEY ='PF03' then exit
if ZPFKEY ='PF01' then
do
address ispexec
"EDIT DATASET('"TLIFE01.TEST.DATEFILE"')"
iterate
end

In this PF03 is working, But PF01 is not working.

But if i use PF15, in the place of PF01, the Edit dataset is working properly.

What needs to be done here?

Regards,
Elamaran S

ofer71 · Posted: Tue Jun 19, 2007 2:57 pm

The PF03 "exit" worked not because of your REXX, it worked because it was pre-allocated to END.

PF15 worked because it was not pre-allocated to any command.

Try to set the PF keys before invoking your REXX, or try using KEYLIST.

O.

raam · New User Joined: 29 Jan 2007 Posts: 13 Location: mumbai

Hi,

Please let me know the syntax to set PF keys.

As u pointed, PF15 is pre-alloted to end and not blank.

Regards,
Elamaran S

ofer71 · Posted: Tue Jun 19, 2007 4:10 pm

Something like this: