View previous topic :: View next topic
|
Author |
Message |
sudhee_rb
New User
Joined: 29 Mar 2006 Posts: 34
|
|
|
|
Hi All,
I am working on one modification of REXX prgm.
Currnt PGM recalls(Mass) all VSAM files which are migrated.
Now i want to Chage the program to add the logic:I wanted to recall completion of one migrated file,the next file should wait till the previous file ended with recall.
Can anybody please help me how to catch whether the file migrated or not.
Thanks in advance |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Take a look at the ISPF service LMDLIST. It produces some variables, one of them is ZDLMIGR.
Also, check the SYSREASON of LISTDSI (especially reasons 9 & 25).
O. |
|
Back to top |
|
|
sudhee_rb
New User
Joined: 29 Mar 2006 Posts: 34
|
|
|
|
ofer71 wrote: |
Take a look at the ISPF service LMDLIST. It produces some variables, one of them is ZDLMIGR.
Also, check the SYSREASON of LISTDSI (especially reasons 9 & 25).
O. |
This is my code i want to add the restart logic.
check_migrate:
/* Check if vsam file has been migrated */
/* If it has, issue HRECALL */
do v = 1 to vsamlist.0
If Pos(dbnm,vsamlist.v) > 0 then do
& Pos(tsnm,vsamlist.v) > 0 then do
dsnm = Strip(vsamlist.v)
"HRECALL '" || dsnm || "WAIT"
total_recall = total_recall + 1
say '* Recall ' dsnm
end
end
Return |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
and.... do you want us to write it for you? I gave you two possible solutions. Please try and let us know if you have any problems.
O. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
And I very strongly recommend that you DO NOT use the wait parameter.
When you submit RECALL requests to HSM they are analysed by HSM to group them together by resident ML2, so will recall all datasets from a tape with only one tape mount.
You specify WAIT and the recall is processed before the next request is passed to HSM, which may well want the very same tape that has just been dismounted, filed away, and is now required again. I have seen this extremely dumb practice hog three tape units for hours on end, when it could all have been accomplished in minutes. If I was in the storage group at your shop and spotted what you were doing, S222 would occur. |
|
Back to top |
|
|
|