Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Mapping ENTER key in panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
sreejith2612

New User


Joined: 25 Jun 2007
Posts: 8
Location: India

PostPosted: Tue Dec 04, 2007 1:23 pm    Post subject: Mapping ENTER key in panel
Reply with quote

I designed a panel. I need to differentiate between PF03 and ENTER keys. PF03 works fine by using the logic 'fkey='PF03'. Need to map ENTER key to process and all other PF keys to be made as invalid keys.
In a previos post by someone, I found that PF03 gives RC of 8 whereas ENTER '0'. But the RC for ENTER as well as PF03 is '0' as far as I could see. Please let me konw what can be done.
Back to top
View user's profile Send private message

Srihari Gonugunta

Active User


Joined: 14 Sep 2007
Posts: 295
Location: Singapore

PostPosted: Tue Dec 04, 2007 2:01 pm    Post subject:
Reply with quote

Code:
 "ispexec vget (zpfkey) asis"
if zpfkey='PF03' then do
stmt1
end;
else do
stmt2
end;


After displaying the panel, If PF3 is pressed then stmt1 is executed and If pf3 is not entered it is considered as ENTER. you can achieve all the pf key handling with this if-else if logic, I believe.

I am not sure of handling the ENTER key explicitly.
Back to top
View user's profile Send private message
sreejith2612

New User


Joined: 25 Jun 2007
Posts: 8
Location: India

PostPosted: Tue Dec 04, 2007 2:33 pm    Post subject: Reply to: Mapping ENTER key in panel coded using REXX.
Reply with quote

Hi,
Thx for the reply. This works fine but we cant differentiate between PF keys other than PF03 (say PF04) and ENTER because the same statement gets executed when (say) PF04 and ENTER are pressed.

Regards,
Sreejith.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Dec 04, 2007 4:32 pm    Post subject: Reply to: Mapping ENTER key in panel
Reply with quote

Did you read this previous topic?
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Dec 04, 2007 7:20 pm    Post subject: Reply to: Mapping ENTER key in panel
Reply with quote

Once again, I need to ask why you want to do this.

When you use the DISPLAY service for a panel, there are only two normal return-codes that you need to deal with: RC=0 or RC=8.

When you call the DISPLAY service, and then press the ENTER key, the DISPLAY service ends with RC=0. When you call the DISPLAY service, and then enter an END or EXIT or RETURN command, then the DISPLAY service ends with RC=8.

Since each TSO/ISPF user has the option to specify which PF keys are mapped to which commands, then it doesn't make logical sense to look for specific PF keys to be pressed, when all that's really important is what command they issue, and what return-code that command generates back to the dialog.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts Creating an 'Enter' event with IMS MF... dileep chirasani Java & MQSeries 1 Sat Aug 06, 2016 2:23 am
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm
No new posts why i need hit enter after EXECIO * D... jackzhang75 CLIST & REXX 10 Fri May 20, 2016 9:16 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us