//JOB4     JOB   accounting information,REGION=nnnnK
//STEP1    EXEC  PGM=ADRDSSU
//TAPE     DD    UNIT=3480,VOL=SER=TAPE04,
//  LABEL=(1,SL),DISP=(OLD,KEEP),DSN=USER3.BACKUP
//SYSPRINT DD    SYSOUT=A
//SYSIN    DD    *
 RESTORE INDD(TAPE) OUTDYNAM((338001),(338002)) -
   DS(INC(PARTS.**))     /* OR DS(INC(**))          */     -
   PCTU(80)              -
   RECATALOG(USERCAT2)   -
   TGTALLOC(SOURCE)
/*

In Example 6: using the RECATALOG keyword, data sets with a first-level qualifier of PARTS were dumped logically. All are restored to volume 338001 and cataloged in catalog USERCAT2. These data sets were on volume 338000 at the time of dump. If the data sets do not fit on volume 338001, a spill volume 338002 is specified. To ensure that the data sets on volume 338001 can be extended, 20% of the total space on volume 338001 is to be left as free space (PCTU(80)). TGTALLOC(SOURCE) specifies that the data sets are to be restored with the same allocation type they had when they were dumped.