IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Accepting Function keys in CLIST - concerns


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jozef

New User


Joined: 23 Apr 2009
Posts: 5
Location: INDIA

PostPosted: Wed Apr 21, 2010 12:47 am
Reply with quote

Hi,

I have a requirement to invoke a new panel from an existing ISPF panel. When the user presses a function key the new panel has to be thrown. I am using PF2 by overriding the profile default 'SPLIT' with the value 'END' in CLIST. After the processing is complete the old value is restored in the Profile mapping. I have the following queries about this.

1) If the CLIST PROC abends due to some reason then the old value cannot be restored(PF2 will remain mapped to 'END') and the user profile remains altered. Is it possible to avoid such a scenario in any way.

2) Is it possible to use any other key combinations (Alt+C,Alt+F1,... etc ) in place of function keys.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Apr 21, 2010 12:59 am
Reply with quote

why not just use PF3, the normal 'END'?

why do you have to change to non-standard PF-Key usage?
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Apr 21, 2010 1:10 am
Reply with quote

"2) Is it possible to use any other key combinations (Alt+C,Alt+F1,... etc ) in place of function keys."

That would depend on the terminal emulator your are using and how those keys are mapped (and what the users are using and how they have them mapped)!
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Apr 21, 2010 2:49 am
Reply with quote

jozef wrote:
When the user presses a function key the new panel has to be thrown.
by "thrown". do you mean like to put in the garbage ??
Do you use a special tool to "throw" your panel ??
Is the word "display" not good enough ??

Quote:
I am using PF2 by overriding the profile default 'SPLIT' with the value 'END' in CLIST.
That is very bad practice. Just don't do that.
Look at the way ISPF works: in most panels, you type a selection then it ENTER.

And if you really must use a PF key, then choose one less critical (PF17 for example)
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Wed Apr 21, 2010 5:03 am
Reply with quote

If you really want to mess around with PF Keys, give your application its own application ID (ZAPPLID) and you can do so, an abend won't affect the users normal PF keys. One way to do so is to use this bit (or similar) code:

Code:
arg whatever
parse source source
parse value source with . . myself .
"ispexec vget (zapplid)"
if zapplid \= 'MYAP' then
  do
    "ispexec select cmd(%"myself whatever") newappl(MYAP)"
    exit
  end
Back to top
View user's profile Send private message
Kjeld

Active User


Joined: 15 Dec 2009
Posts: 365
Location: Denmark

PostPosted: Fri Apr 23, 2010 6:39 pm
Reply with quote

jozef wrote:
2) Is it possible to use any other key combinations (Alt+C,Alt+F1,... etc ) in place of function keys.

No, in 3270 communication only function keys PF1-24, the PA keys, and ENTER is used for initiate sending a message to the application.

Other key combinations are intercepted by the terminal emulator and can only initiate sending a message by emulating pressing the action keys above.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Calling an Open C library function in... CICS 1
No new posts DATE2 function SYNCSORT 15
No new posts Use input file with OMIT rcd keys? DFSORT/ICETOOL 15
No new posts Help on PL/I jsonPutValue function PL/I & Assembler 8
Search our Forums:

Back to Top