View previous topic :: View next topic
|
Author |
Message |
Denser
New User
Joined: 22 Mar 2005 Posts: 4
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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 |
|
|
Denser
New User
Joined: 22 Mar 2005 Posts: 4
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
Denser
New User
Joined: 22 Mar 2005 Posts: 4
|
|
|
|
I guess there is no way that msg can be avoided.
Thanks for the response guys |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Denser
New User
Joined: 22 Mar 2005 Posts: 4
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
|