Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Break Auto update screen without message

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

New User


Joined: 15 Jan 2016
Posts: 7
Location: uk

PostPosted: Wed Oct 03, 2018 2:44 pm    Post subject: Break Auto update screen without message
Reply with quote

Hi

There are various topics about ISPF screens that auto update and how to use ATTN to "break in" to the screen.

We have a panel that is invoked from REXX and we are trying to introduce an auto update function. Two main questions we're struggling with

Is the ATTN key the only way of breaking the loop. I'm assuming the answer to this is yes as there doesn't seem to be a way to allow the user to key a keyword that can then be picked up in the code, e.g. "quit"?

If we have to use the ATTN key how do we supress the "HI TO END..." message that comes out? I assume this must be possible as SDSF manages it OK but maybe that's not using REXX??

We have tried playing with "signal on halt" to try and capture the ATTN but you still get the HI TO END message.

Extract from code is case it helps

do i = 1 to cycle
TC = i
cyclem = 'In auto update mode. Updating every' interval,
'seconds. Cycle' i 'of' cycle
"CONTROL DISPLAY LOCK"
"DISPLAY PANEL(MAGTAC1)"
"VGET (ZCMD) PROFILE"
if zcmd = 'Q' then signal redisp
LOITER = Opswait(interval)
call GetAllSum
timen = TIME()
end

Please use the code tags when presenting code/data/anything requiring fixed format. I have done it for you this time (below). Note the differences.
Code:
do i = 1 to cycle                                         
   TC = i                                                 
   cyclem = 'In auto update mode. Updating every' interval,
   'seconds. Cycle' i 'of' cycle                           
   "CONTROL DISPLAY LOCK"                                 
   "DISPLAY PANEL(MAGTAC1)"                               
   "VGET (ZCMD) PROFILE"                                   
   if zcmd = 'Q' then signal redisp                       
   LOITER = Opswait(interval)                             
   call GetAllSum                                         
   timen = TIME()                                         
end
Back to top
View user's profile Send private message

Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 228
Location: Denmark

PostPosted: Wed Oct 03, 2018 9:31 pm    Post subject:
Reply with quote

Not in REXX, or at least not without writing an attention routine. But CLIST can handle attentions, so the following works for me:

REXX code
Code:
  address tso "%ZZXW2"  /* call timer clist */
  if rc<>0 then leave   /* get out of loop  */


CLIST ZZXW2
Code:
PROC 0                 
CONTROL NOPROMPT FLUSH
ATTN EXIT CODE(1)     
WAIT 2                 
EXIT CODE(0)           

This is one of the very few situations where I find that CLIST still has it's use.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 228
Location: Denmark

PostPosted: Wed Oct 03, 2018 9:34 pm    Post subject:
Reply with quote

I should perhaps mention that the WAIT program is a local program, but most sites will have a similar one.
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
No new posts SOAP Message Handler Application Inte... John Poulakos CICS 1 Fri Aug 24, 2018 1:05 am
No new posts Pre-Compiler Bug with DSNH520I message? John Poulakos DB2 1 Thu Aug 09, 2018 9:00 pm
No new posts How to manage VSAM file update confli... ocjohnh JCL & VSAM 2 Sat Jul 21, 2018 6:04 am
No new posts Error while initiation CICS program f... Ashishpanpaliya CICS 3 Mon Jul 16, 2018 5:12 pm
No new posts KSDS file fields update by passing va... Anil Kumar Prajapati TSO/ISPF 5 Wed Jul 11, 2018 5:59 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us