Backup up with z/OS ADRDSSU and MVS DSSDUMP - M131

Описание: Here is the JCL for z/OS

//MOSHIXD JOB 'DUMP TO TAPE ',NOTIFY=&SYSUID
//S0 EXEC PGM=ADRDSSU,REGION=0M
//SYSPRINT DD SYSOUT=*
//DASD DD UNIT=SYSALLDA,VOL=SER=OS3RAA,DISP=SHR
//TAPE DD DSN=DUMP.OS39RA,DISP=(,CATLG),
// LABEL=(,SL),VOL=SER=MOSHIX,UNIT=560
//SYSIN DD *
DUMP INDD(DASD) OUTDD(TAPE) COMPRESS OPTIMIZE(4)
//*

and here is the JCL FOR MVS

//HERC01D JOB ,'DSSDUMP',MSGLEVEL=(1,1),TIME=(5,0),REGION=4096K,
// MSGCLASS=A,CLASS=A,NOTIFY=HERC01
//STEPT02 EXEC PGM=DSSDUMP
//SYSPRINT DD SYSOUT=*
//SOURCE DD VOL=SER=MVSRES,UNIT=3350,DISP=SHR
//**TARGET DD UNIT=TAPE,VOL=(PRIVAT,SER=111111),DISP=(NEW,CATLG),
//** DSN=TDS.DUMP200,LABEL=(1,SL)
//TARGET DD VOL=SER=PUB002,UNIT=3380,DISP=(NEW,CATLG),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3200),
// SPACE=(TRK,(425,15),RLSE),
// DSN=HERC01.DSS.DUMP001
//SYSIN DD *
DUMP INDDNAME(SOURCE) OUTDDNAME(TARGET) -
DATASET(INCLUDE(SYS2.JCLLIB)) ALLEXCP
/*