Recognize Enter in Rexx

trushant.w · Posted: Mon Aug 11, 2014 4:37 pm

Hi All

In my panel i am using below
)Proc
& PFKEY = .PFKEY
.Cursor = &CPOS
)END

In my Rexx program i am checking below

IF PFKEY = 'PF01 ' | PFKEY = 'PF03' | PFKEY = 'ENTER' THEN
say 'Valid key'
ELSE
say 'Invalid key'

The problem is even when i am pressing enter its saying invalid key.And when i am pressing PF1 its going in ISPF help.However its working fine for PF03

Please suggest.

expat · Posted: Mon Aug 11, 2014 5:07 pm

What exactly are you trying to achieve ?

If you want to mess about with PF keys take a look at using KEYLIST.

trushant.w · Posted: Mon Aug 11, 2014 5:21 pm

Thanks for reply expat!!!

Code shown above is just for easy understanding of problem i am facing actually i will be validatning the response from user here.
I dont want user to press any key other than these else i will throw message.

But as mention in first post enter and PF03 r not working.

expat · Posted: Mon Aug 11, 2014 5:43 pm

As I said, if you want to change the functioning of PF keys you need to define and use a KEYLIST.

I would recommend doing any validation in a REXX loop

Akatsukami · Posted: Mon Aug 11, 2014 5:54 pm

Paul Voyner · New User Joined: 26 Nov 2012 Posts: 52 Location: UK

" i will be validatning the response from user here". Why re-invent the wheel ? Look up the VER statement in ISPF Dialog Developers Guide & Reference. That gives automatic validation of user input. You'll already have hundreds of examples in your ISPPLIB concatenation at your site.

trushant.w · Posted: Mon Aug 11, 2014 6:16 pm

Yes Akatsukami by mistake i said that PF03 is not working in my second post.Only PF01 and ENTER are not working.

I will be doing other processing as well after recognizing what key is pressed by user hence i have to code this in Rexx.

Pedro · Posted: Mon Aug 11, 2014 7:08 pm

Pedro · Posted: Mon Aug 11, 2014 9:25 pm

trushant.w · Posted: Mon Aug 11, 2014 9:30 pm

Hi Pedro

I want to prevent PF01 bcoz i want to throw my own cereated help panel instead of ISPF panel.

Akatsukami · Posted: Mon Aug 11, 2014 9:41 pm

don.leahy · Posted: Mon Aug 11, 2014 10:48 pm

I would like to commend the TS for wishing to provide HELP. Too many dialog authors do not go to the trouble of doing that. ISPF has made it very easy to provide, at the very least, a rudimentary form of help.

trushant.w · Posted: Tue Aug 12, 2014 12:38 pm

Thanks for ur replies

I got the solution to recognize enter.Below is the code

IF PFKEY = '' ...........

But i am still struggling with PF01.Whenever i m pressing PF01 i m going in ispf help

Pedro
I have searched for the PASSTHRU as u suggested but couldnot got much help.
Can u throw som more light on it.

Akatsukami · Posted: Tue Aug 12, 2014 5:30 pm

Create your help panel. Assume for the sake of discussion that it is named PH, in a library concatenated to ISPPLIB.
In the )INIT section of your main panel, add the line

Code:

.HELP = PH

Pedro · Posted: Tue Aug 12, 2014 9:09 pm

Pedro · Posted: Tue Aug 12, 2014 9:11 pm

Pedro · Posted: Tue Aug 12, 2014 9:23 pm

My suggestion should not apply to HELP, as you should be using the .HELP function as described by Akatsukami-san.

My suggestion for PASSTHRU was in response to your description of disabling most of the function keys. Use ISPF option 3.9 to create an application command table. When you start your rexx program make sure you get into the same APPLID as when you defined the application command table.

Pedro · Posted: Tue Aug 12, 2014 9:57 pm

Actually, searching in ISPF Planning and Customizing is better.

trushant.w · Posted: Wed Aug 13, 2014 10:43 pm

Thanks for your replies.

Pedro i noted your point.

I did implement my help panel as suggesed by ataksukami.
But the problem is after displaying my help panel i am not able to comeback to my main panel.

Pedro · Posted: Thu Aug 14, 2014 3:44 am