ADRDSSU : How to Recover Multiple Tape Files in a JCL

chinnaraj · New User Joined: 01 Nov 2007 Posts: 17 Location: Chennai

Hi,

i know the following JCL is used to recover a file from tape AAA.BBB.CCCCCC.DDDDDD.DTMMDDYY.TMTAPE1.

//RECOVER EXEC PGM=ADRDSSU,REGION=4096K
//SYSPRINT DD SYSOUT=*
//INDD1 DD DSN=AAA.BBB.CCCCCC.DDDDDD.DTMMDDYY,DISP=OLD
//OUTDD1 DD UNIT=SYSDA,DISP=(NEW,CATLG,DELETE)
//SYSIN DD *
RESTORE INDDNAME(INDD1) OUTDDNAME(OUTDD1) -
DATASET(INCLUDE( -
AAA.BBB.CCCCCC.DDDDDD.DTMMDDYY.TMTAPE1-
)) -
RENAMEU(IPT)
/*

i have 1000 of such tape files, instead of recovering 1 by 1 , i need a JCL which can retrieve multiple tape files in a single Job.

Please provide me such a JCL if the above request is feaisble.

Regards,
Chinna.

expat · Posted: Wed Sep 17, 2008 11:51 am

Yes it is feasible, you need to add one DD for each input tape that you wish to use.

Also the control statements will need to reflect which DD name is to be used as input.

Aaru · Posted: Wed Sep 17, 2008 11:55 am

Chinna,

You can also have an instream PROC with ADRDSSU and then have seperate steps for each input file.

Each step would call that PROC with a different input file.

chinnaraj · New User Joined: 01 Nov 2007 Posts: 17 Location: Chennai

Hi expat,

i have tried giving multiple DD' s as given below.

//STEP01 EXEC PGM=ADRDSSU,REGION=4096K
//SYSPRINT DD SYSOUT=*
//INDD1 DD DSN=AAA.BBB.CCCCCC.DDDDDD.DTMMDD1,DISP=OLD
// DD DSN=AAA.BBB.CCCCCC.DDDDDD.DTMMDD2,DISP=OLD
//OUTDD1 DD UNIT=SYSDA,DISP=(NEW,CATLG,DELETE)
//SYSIN DD *
RESTORE INDDNAME(INDD1) OUTDDNAME(OUTDD1) -
DATASET(INCLUDE( -
AAA.BBB.CCCCCC.DDDDDD.DTMMDDYY.TMTAPE1-
)) -
RENAMEU(IPT)
RESTORE INDDNAME(INDD1) OUTDDNAME(OUTDD1) -
DATASET(INCLUDE( -
AAA.BBB.CCCCCC.DDDDDD.DTMMDDYY.TMTAPE2-
)) -
RENAMEU(IPT)
/*

But this approach also not working...

enrico-sorichetti · Posted: Wed Sep 17, 2008 5:05 pm

dfdss dumps cannot be concatenated....

You will have to run a job with 1000 input dd for the dumps
and the sysin will have 1000 restore statements

if You do not want to write it by hand You can try to write a rexx to generate
the jcl

expat · Posted: Wed Sep 17, 2008 5:08 pm

I should have made cl;ear that I did actually mean a DDNAME rather than just an additional DD statement

jigneshpatel · New User Joined: 05 Jun 2007 Posts: 1 Location: india

Would this utility work to copy the generations of one GDG to another GDG generations...?

expat · Posted: Thu Mar 19, 2009 12:17 pm

1) Try it yourself and see
2) DO NOT start a new thread within an existing one. Start a NEW one !!!

gcicchet · Posted: Thu Mar 19, 2009 3:39 pm

Hi,

I would be very careful allocating 1000 DD statements in a single step especially when they are all on TAPE, unless you use UNIT=AFF you are going to be disappointed as I doubt you have 1000 tape drives available at once.

Gerry

Gerry

Robert Sample · Posted: Thu Mar 19, 2009 5:24 pm

Gerry: even if they have 1000 tape drives available, I suspect the operations group might not be too happy if somebody allocated all of them at once to one job ... assuming that could even be done, of course.

expat · Posted: Thu Mar 19, 2009 5:33 pm

Well, when the SP (Secondary poster) asked the question they never specified the location of the GDG generatios, if they are on DASD - which DFdss would do, or on tape which Dfdss would not do.

So as usual, clarification needed from the poster.