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
 

 

Panel Help for only PF key processing

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

New User


Joined: 28 Aug 2006
Posts: 7
Location: India

PostPosted: Tue Jun 26, 2007 2:26 pm    Post subject: Panel Help for only PF key processing
Reply with quote

Hi,

Can someone suggest something for a situation where:

1)Display 1st Panel
2)Display 2nd Panel
3)Find if any PF key say 'PF03' is pressed.
4)If no then go to step 1 else go to step 5.
5)Exit.

PFB some code that i am trying aint working:

Code:

/* REXX */                     
ADDRESS ISREDIT "MACRO PROCESS"
DO FOREVER         
    ADDRESS ISPEXEC
    "LIBDEF ISPPLIB DATASET ID ('MY.REXX.LIB')"
    "CONTROL DISPLAY LOCK"
    "DISPLAY PANEL (PANEL1)"
   ADDRESS ISPEXEC
    "LIBDEF ISPPLIB DATASET ID ('MY.REXX.LIB')"
    "CONTROL DISPLAY LOCK"
    "DISPLAY PANEL (PANEL2)"
    ADDRESS ISPEXEC "VGET ZPFKEY"
    IF ZPFKEY == PF03 THEN 
       EXIT 1             
END


Regards,
Milan
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 Jun 26, 2007 5:54 pm    Post subject: Re: Panel Help for only PF key processing
Reply with quote

I don't understand what you want to do with steps 3 & 4.

If you display PANEL2 with CONTROL DISPLAY LOCK still active, then, as documented, any user interaction with the panel is ignored. So, you definitely need to disable the DISPLAY LOCK first.

Then, you want to check if ANY key is pressed? Normally, if a panel is displayed via the DISPLAY service, pressing ENTER will end the DISPLAY service with a RC of zero. Entering END or EXIT, or, pressing a PF Key that is associated to the END or EXIT commands will end the DISPLAY service with a RC of 8. The DISPLAY service won't end until the user presses some appropriate PF key or enters something appropriate on the command line.
Back to top
View user's profile Send private message
milochanzy

New User


Joined: 28 Aug 2006
Posts: 7
Location: India

PostPosted: Tue Jun 26, 2007 7:53 pm    Post subject: Re: Panel Help for only PF key processing
Reply with quote

Hi Kelvin,

Thanks for response.
Here's what is intended. I want to keep sending some screen on ISPF until someone interrupts it.
Hope this has clarified the Steps you mentioned.
Please try if you can help me with this.

Thanks and Regards,
Milan

superk wrote:
I don't understand what you want to do with steps 3 & 4.

If you display PANEL2 with CONTROL DISPLAY LOCK still active, then, as documented, any user interaction with the panel is ignored. So, you definitely need to disable the DISPLAY LOCK first.

Then, you want to check if ANY key is pressed? Normally, if a panel is displayed via the DISPLAY service, pressing ENTER will end the DISPLAY service with a RC of zero. Entering END or EXIT, or, pressing a PF Key that is associated to the END or EXIT commands will end the DISPLAY service with a RC of 8. The DISPLAY service won't end until the user presses some appropriate PF key or enters something appropriate on the command line.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jun 27, 2007 10:19 am    Post subject:
Reply with quote

The only way I know to interrupt a CONTROL DISPLAY LOCK is with the ATTN key.

O.
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 Run stats processing on zIIP Engine Virendra Shambharkar DB2 9 Fri Oct 14, 2016 10:24 am
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm


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