IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

to recall migrated dataset from job step


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sanupadh

New User


Joined: 29 Jun 2010
Posts: 11
Location: chennai

PostPosted: Wed Jul 13, 2011 6:25 pm
Reply with quote

Hi All,

one job is abended because job fails to recall migrated dataset
I want to know do we add step in job to recall that dataset first and later execute remainnig steps.
please provide me the jcl step.

Thanks
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Jul 13, 2011 6:44 pm
Reply with quote

Quote:
one job is abended because job fails to recall migrated dataset


and that abend code is????
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 13, 2011 7:22 pm
Reply with quote

sanupadh wrote:
please provide me the jcl step.

Immediately after the 750 euros hits my bank account.

This has been discussed on the forum many times, and we are quite lucky as forums go because we happen to have a SEARCH button.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Jul 13, 2011 11:40 pm
Reply with quote

However, you should fix the cause - you are migrating datasets too soon.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Jul 13, 2011 11:53 pm
Reply with quote

Nic, Shhhhhhhhhhhh, you're curtailing my income icon_lol.gif
Back to top
View user's profile Send private message
sanupadh

New User


Joined: 29 Jun 2010
Posts: 11
Location: chennai

PostPosted: Fri Jul 15, 2011 2:05 pm
Reply with quote

Actually Job runs once in a month and this month It got abended because
Not able to recall the dataset.
after some time when I resubmit the job by changing msgclass parameter
it ran fine.
someone suggested me to add one more step in the beginning of the job so that I recall the dataset first and later executes remaining step.

I cant increase the timing of migration.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jul 15, 2011 2:09 pm
Reply with quote

I can not for the life of me see how changing the MSGCLASS parameter has any effect at all.

As I have said previously, search the forum, perhaps using HRECALL WAIT as keywords.

Google definitely links to this forum with the answer to your question.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Jul 15, 2011 2:26 pm
Reply with quote

on our machine, they migrate ds after 3 days - which makes mondays a lot of fun.

I wrote a rexx script that generates an iefbr14 for all of my datasets,
with a disp=shr.. before submitting, I cull those ds's that I will probably not use.

i made the mistake of submitting the job with a CLASS = 20 second jobs,
the recalls required nearly an hour (wall clock), though the job did not abend due to timeout, did tie up a job class much too long.
since then I submit under a CLASS = nolimit.

never have experienced a job timing out due to migration recall.
Quote:
because job fails to recall migrated dataset

I think the TS's was timed out due to another reason.
i base that on the ts's comment about msgclass having an effect,
and not knowing enough about JCL to create his own step to effectively 'recall' a migrated ds.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jul 15, 2011 2:58 pm
Reply with quote

Dick, if you do need to do it, it would probably be better to generate the HRECALL cards with NOWAIT as this will queue the recall requests in HSM, and HSM is clever enough to group the recalls by tape so that each ML2 volume is mounted only once.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Jul 15, 2011 3:22 pm
Reply with quote

thx expat. will make the change.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Jul 15, 2011 3:43 pm
Reply with quote

example of JCL for submitting DFSMShsmâ„¢ commands in batch mode

there are also links within this website that provide the same info.
e.g. HRECALL to recall all migrated datasets
again, thx for the tip expat .... always looking for ways to do things,
and not attract the attention of operators.

dbz
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jul 15, 2011 3:49 pm
Reply with quote

Dick, will PM you the code that I use for multiple functions in a few minutes.

If you're lucky you'll be able to understand my ramblings in the JCL section icon_lol.gif
Back to top
View user's profile Send private message
yuvrajdutta

New User


Joined: 13 Jul 2009
Posts: 40
Location: India

PostPosted: Sun Aug 07, 2011 3:51 pm
Reply with quote

We personally had a requirement of RECALLING hundred's of datasets once and we followed the below procedure:

SAVE a DSLIST (3.4) or use a REXX to so the same... I personally did a

Code:

SAVE hello


Which resulted in the DSLIST(entire 3.4) listing being saved into a DATASET like <MY_USER_ID>.HELLO.DATASETS.

Since all our migrated datasets were in MIGRAT1 state(i believe there are other types of MIGRATION's also) we had used the following JOB to create RECALL statements in BATCH and SUBMIT the same too.

Code:

//SORTDATA EXEC PGM=SORT,REGION=4096K,TIME=1440,COND=(4,LT)             
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD DSN=<MY_USER_ID>.HELLO.DATASETS,DISP=SHR                       
//SORTOUT  DD DSN=&&C,DISP=(NEW,PASS),                                 
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),                   
//            SPACE=(TRK,(200,200)),UNIT=SYSDA                         
//SYSIN    DD *                                                         
      INCLUDE COND=(46,7,CH,EQ,C'MIGRAT1')                             
      SORT FIELDS=COPY                                                 
      OUTFIL FNAMES=SORTOUT,IFOUTLEN=80,                               
      IFTHEN=(WHEN=INIT,                                               
      BUILD=(C'''',1,45,C'''',80:X)),                                   
      IFTHEN=(WHEN=INIT,                                               
      OVERLAY=(1:1,80,SQZ=(SHIFT=LEFT)))                               
/*                                                                     
//SORTDATA EXEC PGM=SORT,REGION=4096K,TIME=1440,COND=(4,LT)             
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD DSN=&&C,DISP=SHR                                         
//SORTOUT  DD DSN=&&A,DISP=(NEW,PASS),                                 
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),                   
//            SPACE=(TRK,(200,200)),UNIT=SYSDA               
//SYSIN    DD *                                             
      SORT FIELDS=COPY                                       
      OUTFIL FNAMES=SORTOUT,                                 
      BUILD=(C'HRECALL ',1,47,C' NOWAIT',80:X)               
                                                             
/*                                                           
//RECALL   EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=(9),COND=(4,LT)
//SYSTSPRT DD SYSOUT=*                                       
//SYSPRINT DD SYSOUT=*                                       
//SYSUDUMP DD SYSOUT=*                                       
//SYSTSIN DD DSN=&&A,DISP=SHR                               


Hope this helps..
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Sun Aug 07, 2011 10:44 pm
Reply with quote

Hello,
You could also accomplish the above with dataset mask for HRECALL command,
So a dataset mask possibly would make it a single step job, with the IKJEFT01 alone.
Example:
Code:
TSO HRECALL 'WELLS.SAS.*.DATABASE' WAIT/NOWAIT


Hope it helps.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Return codes-Normal & Abnormal te... JCL & VSAM 7
No new posts Allocated cylinders of a dataset DB2 12
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
Search our Forums:

Back to Top