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
 

 

Display a panel when dataset is being recalled

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Denser

New User


Joined: 22 Mar 2005
Posts: 4

PostPosted: Wed Sep 17, 2008 9:52 am    Post subject: Display a panel when dataset is being recalled
Reply with quote

I have searched the forum and tried all suggested options but nothing works

I want to display a temp ispf panel using CONTROL DISPLAY LOCK when a migrated dataset is being recalled in the background. but no matter what i do i always get the messages saying the dataset is being recalled. Is there a way to supress this msg and show a temp panel while the dataset is being recalled?

Here's the code i am working with :

Code:
 MSG1 = '04'X "RECALLING DATASET"||'03'X OUTDS '04'X ,         
        "STARTED:" '02'X STIME                                 
 MSG2 = '02'X TIME()                                           
 ADDRESS ISPEXEC "CONTROL DISPLAY LOCK NOMSG"                   
 ADDRESS ISPEXEC "ADDPOP COLUMN(4) ROW(10)"                     
 ADDRESS ISPEXEC "DISPLAY PANEL(PROGXXS)"                       
 ADDRESS TSO "PROFILE NOWTPMSG NOINTERCOM"                     
 DROP VAR.                                                     
 X = OUTTRAP('VAR.')                                           
 VAR1 = LISTDSI(OUTDS RECALL)                                   
 Y = OUTTRAP('OFF')                                             
 IF SYSREASON = 0 THEN DO                                       
   X = MSG('OFF')                                               
   SAY 'THIS IS A TEST'                                         
 END                                                           
 ADDRESS ISPEXEC "REMPOP"                                       
 RETURN                                                         
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Sep 17, 2008 11:11 am    Post subject:
Reply with quote

Your logic seems incorrect. You shoud first display the panel on a standard manner. Then, when the user presses the ENTER key, do the recall, CONTROL DISPLAY LOCK, and another DISPLAY.

O.
Back to top
View user's profile Send private message
Denser

New User


Joined: 22 Mar 2005
Posts: 4

PostPosted: Wed Sep 17, 2008 11:43 am    Post subject:
Reply with quote

Ok I changed the logic around a bit as per your suggestion:

Code:

MSG1 = '04'X "NEED TO RECALL"||'03'X OUTDS '04'X ,     
       "STARTED:" '02'X STIME                           
MSG2 = '02'X TIME()                                     
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"                 
ADDRESS ISPEXEC "ADDPOP COLUMN(4) ROW(10)"             
ADDRESS ISPEXEC "DISPLAY PANEL(PROGXXS)"               
ADDRESS TSO "PROFILE NOWTPMSG NOINTERCOM"               
MSG1 = '04'X "RECALLING DATASET"||'03'X OUTDS '04'X ,   
       "STARTED:" '02'X STIME                           
MSG2 = '02'X TIME()                                     
DROP VAR.                                               
X = OUTTRAP('VAR.')                                     
X = MSG('OFF')                                         
VAR1 = LISTDSI(OUTDS RECALL)                           
ADDRESS ISPEXEC "CONTROL DISPLAY LOCK"                 
ADDRESS ISPEXEC "ADDPOP COLUMN(4) ROW(10)"             
ADDRESS ISPEXEC "DISPLAY PANEL(PROGXXS)"               
Y = OUTTRAP('OFF')                                     
ADDRESS ISPEXEC "REMPOP"                               
RETURN                                                 



But am still getting this....


Code:
 ARC0612I VOLUME MOUNT ISSUED FOR RECALL OR RECOVER OF                         
 ARC0612I (CONT.) P672704.BP003BA0.FL05796.CARDS.OLD1                           
 ***                                                                           
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Sep 17, 2008 12:01 pm    Post subject:
Reply with quote

Unfortrunately HSM is a law unto itself and will issue messages (via TPUT) I think which go where HSM wants them to go.
Back to top
View user's profile Send private message
Denser

New User


Joined: 22 Mar 2005
Posts: 4

PostPosted: Wed Sep 17, 2008 1:16 pm    Post subject:
Reply with quote

I guess there is no way that msg can be avoided.

Thanks for the response guys
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Sep 17, 2008 9:20 pm    Post subject:
Reply with quote

Hello,

Quote:
I guess there is no way that msg can be avoided.
While there may not be a way to show a message you prefer, you can get away from the "recall" message by pressing Attn. This will at least free your terminal so you can work in cics or roscoe or somthing other than the tso that is recalling the dataset.
Back to top
View user's profile Send private message
Denser

New User


Joined: 22 Mar 2005
Posts: 4

PostPosted: Thu Sep 18, 2008 5:13 am    Post subject:
Reply with quote

I am aware of that but I am building some new apps using panels and this message is quite ugly and needed it replaced by In Progress panel
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2051
Location: Silicon Valley

PostPosted: Thu Sep 18, 2008 5:32 am    Post subject: Reply to: Display a panel when dataset is being recalled
Reply with quote

You could use LISTDSI with NORECALL and check for an error message that indicates it is migrated. If migrated, issue HRECALL command.

Code:

 ADDRESS TSO "HRECALL " outds


For status message, have loop with:
Code:

ADDRESS ISPEXEC "CONTROL DISPLAY LOCK NOMSG"                   
ADDRESS ISPEXEC "ADDPOP COLUMN(4) ROW(10)"                     
ADDRESS ISPEXEC "DISPLAY PANEL(PROGXXS)"

VAR1 = LISTDSI(OUTDS NORECALL) 
/* check for migrated */
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Browse dataset cvnlynn CLIST & REXX 4 Tue Jul 18, 2017 3:52 am
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm


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