Home / JCL Library

📋 AKOM.JCL — JCL Library

Membros JCL prontos para uso em ambiente z/OS. Copie, adapte e execute.

ADRDSSU

3 membros
DSSDUMP
DUMP — Backup de Datasets/Volume
▶

Faz backup (dump) de datasets ou volumes inteiros com ADRDSSU. Suporta COMPRESS para economizar espaço e CHANGEDONLY para backup incremental.

Código JCL

DSSDUMP.jcl 
//DSSDUMP  JOB (ACCT),'ADRDSSU DUMP',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* DSSDUMP - ADRDSSU: DUMP DE DATASETS PARA TAPE/DISCO       *
//*------------------------------------------------------------*
//DUMPSTEP EXEC PGM=ADRDSSU,REGION=0M
//SYSPRINT DD SYSOUT=*
//TAPE1    DD DSN=AKOM.BACKUP.DUMP,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=CART,
//            LABEL=(1,SL)
//SYSIN    DD *
  DUMP DATASET(INCLUDE(AKOM.**))                 -
       OUTDD(TAPE1)                              -
       COMPRESS                                  -
       ALLDATA(*)                                -
       ALLEXCP                                   -
       TOL(ENQF)
/*
Ver Detalhes →
DSSMOVE
COPY+DELETE — Mover entre Volumes ⚠ CUIDADO
▶

Move datasets entre volumes DASD usando ADRDSSU COPY com a opção DELETE (equivalente a MOVE). Mais eficiente que IEBGENER para grandes volumes.

⚠ Esta operação requer atenção especial. Revise os parâmetros antes de executar.

Código JCL

DSSMOVE.jcl 
//DSSMOVE  JOB (ACCT),'ADRDSSU MOVE',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* DSSMOVE - ADRDSSU: COPY+DELETE (MOVE) ENTRE VOLUMES       *
//*------------------------------------------------------------*
//MOVESTEP EXEC PGM=ADRDSSU,REGION=0M
//SYSPRINT DD SYSOUT=*
//VOLSRC   DD UNIT=3390,VOL=SER=SRCVOL,DISP=SHR
//VOLTGT   DD UNIT=3390,VOL=SER=TGTVOL,DISP=SHR
//SYSIN    DD *
  COPY DATASET(INCLUDE(AKOM.**))                 -
       INDD(VOLSRC)                              -
       OUTDD(VOLTGT)                             -
       DELETE                                    -
       CATALOG                                   -
       COMPRESS
/*
Ver Detalhes →
DSSRESTOR
RESTORE — Restaurar Datasets ⚠ CUIDADO
▶

Restaura datasets de um dump ADRDSSU. RENAME permite restaurar com novo nome (útil para testes). REPLACE sobreescreve se o dataset já existir.

⚠ Esta operação requer atenção especial. Revise os parâmetros antes de executar.

Código JCL

DSSRESTOR.jcl 
//DSSRESTOR JOB (ACCT),'ADRDSSU RESTORE',CLASS=A,MSGCLASS=X,
//          MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* DSSRESTOR - ADRDSSU: RESTORE COM RENAME PARA TESTE        *
//*------------------------------------------------------------*
//RESTSTEP EXEC PGM=ADRDSSU,REGION=0M
//SYSPRINT DD SYSOUT=*
//TAPE1    DD DSN=AKOM.BACKUP.DUMP,
//            DISP=SHR,
//            UNIT=CART,
//            LABEL=(1,SL)
//SYSIN    DD *
  RESTORE DATASET(INCLUDE(AKOM.**))              -
          INDD(TAPE1)                            -
          RENAME(AKOM.**,AKOMT.**)              -
          REPLACE                               -
          CATALOG
/*
Ver Detalhes →