Contents
- Copying datasets with option BYPASSACS
- Moving a non-SMS dataset
- Full volume copy
- Volume full dump
- ADRDSSU PRINT
Copying datasets with option BYPASSACS [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY -
INDYNAM(volser1) -
OUTDYNAM(volser2) -
DATASET( -
INCLUDE(**), -
EXCLUDE(SYS1.**.ZFS) -
) -
TOL(ENQF) -
TGTALLOC(SRC) -
WAIT(0,0) -
ALLEXCP BYPASSACS(**) -
ALLDATA(*)
/*Moving a non-SMS dataset [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=ADRDSSU
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,UNIT=DN,VOL=SER=volserold
//OUTDD DD DISP=SHR,UNIT=DN,VOL=SER=volsernew
//SYSIN DD *
COPY -
DATASET( -
INC(dataset.name) -
) -
LOGINDD(INDD) -
ADMIN -
OUTDD(OUTDD) -
ALLDATA(*) -
ALLEXCP -
BYPASSACS(*) -
DELETE -
RECATALOG(*)
/*Full volume copy [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY -
FULL -
COPYVOLID -
ALLDATA(*) -
ALLEXCP -
IDY(volser1,3390) -
ODY(volser2,3390)
/*Volume full dump [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//VOL01 DD DISP=OLD,UNIT=3390,VOL=SER=volser
//TAPE01 DD DISP=(,CATLG),DSN=tape.dataset.name,
// UNIT=unit
//SYSIN DD *
DUMP -
FULL -
ADMIN -
ALLDATA(*) -
ALLEXCP -
OPT(4) -
WAIT(0,0) -
INDD(VOL01) -
OUTDD(TAPE01)
/*ADRDSSU PRINT [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'
//SYSPRINT DD SYSOUT=*,OUTLIM=9999999
//SYSIN DD *
PRINT IDY(volser)
/*
//STEP2 EXEC PGM=ADRDSSU,PARM='UTILMSG=YES'
//SYSPRINT DD SYSOUT=*,OUTLIM=9999999
//SYSIN DD *
PRINT DATASET(dataset.name) IDY(volser)
/*
