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
 
Restart logic for Recalling VSAM Datasets.

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

New User


Joined: 29 Mar 2006
Posts: 34

PostPosted: Tue Jan 22, 2008 1:14 pm    Post subject: Restart logic for Recalling VSAM Datasets.
Reply with quote

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
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Jan 22, 2008 1:20 pm    Post subject:
Reply with quote

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
View user's profile Send private message
sudhee_rb

New User


Joined: 29 Mar 2006
Posts: 34

PostPosted: Tue Jan 22, 2008 1:22 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Jan 22, 2008 1:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Tue Jan 22, 2008 5:10 pm    Post subject:
Reply with quote

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
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 Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm
No new posts VSAM Space Allocation mrgnndhmk JCL & VSAM 7 Sat Apr 22, 2017 12:42 am
This topic is locked: you cannot edit posts or make replies. SDSF multiple spool datasets extracte... PJAlarcon CLIST & REXX 1 Fri Apr 21, 2017 10:50 pm

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