Jens Hohmann

[◀ JCL Batch Jobs]

Contents

1. Copying datasets with option BYPASSACS
2. Moving a non-SMS dataset
3. Full volume copy
4. Volume full dump
5. 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)
/*