zOs/JCL/CSMADRDS
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//**-------------------------------------------------------** 00050000
//** ABSPEICHERN IM AKTUELLEN-RZ ** 00060000
//**-------------------------------------------------------** 00070000
//DUMP EXEC PGM=ADRDSSU 00080000
//SYSPRINT DD SYSOUT=* 00090000
//SYSIN DD * 00100000
DUMP DATASET(INCLUDE( A540769.TSTDUMP.REXX )) - 00110000
ALLD(*) COM - 00120000
CAN DYNAL WAIT(2,2) OUTDD(OUTDUMP) 00130000
//OUTDUMP DD DSN=&&OUTDUMP,SPACE=(CYL,(4000,1000)), 00140000
// DISP=(,PASS) 00150000
//**-------------------------------------------------------** 00160000
//** ZURUECKLADEN IM ZIEL-RZ ** 00170000
//**-------------------------------------------------------** 00180000
//RESTORE EXEC PGM=CSMUTIL,PARM='CSM,ADRDSSU' 00190000
//SYSUT1 DD DSN=&&OUTDUMP,DISP=(OLD,DELETE) 00200000
//RMTUT1 DD DSN=&&DUMP,SPACE=(CYL,(4000,1000)), 00210000
// SUBSYS=(CSM,'SYSTEM=RR2'),BLKSIZE=32760, 00220000
// DISP=(,DELETE),RECFM=U 00230000
//SYSIN DD * 00240000
RESTORE DATASET(INCLUDE(**)) - 00250000
INDDNAME(RMTUT1) CATALOG REPLACE 00260000