Home / JCL Library

📋 AKOM.JCL — JCL Library

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

IEFBR14

2 membros
IEFALLOC
ALLOC — Alocar Datasets
▶

Aloca um ou mais datasets (PS, PDS, PDSE) usando IEFBR14 com DISP=(NEW,CATLG). Útil para pré-alocar datasets antes de jobs que irão usá-los.

Código JCL

IEFALLOC.jcl 
//IEFALLOC JOB (ACCT),'ALLOC DS',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IEFALLOC - IEFBR14: ALOCACAO DE DATASETS                  *
//*------------------------------------------------------------*
//ALLOCPS  EXEC PGM=IEFBR14
//PSFILE   DD DSN=AKOM.NEW.PSFILE,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(5,1)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),
//            UNIT=SYSDA
//PDSLIB   DD DSN=AKOM.NEW.PDSLIB,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(10,5,50)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),
//            UNIT=SYSDA
Ver Detalhes →
IEFDELET
DELETE — Apagar Datasets via JCL 🚨 DESTRUTIVO
▶

Apaga datasets existentes usando IEFBR14 com DISP=(OLD,DELETE,DELETE) ou (MOD,DELETE,DELETE) para datasets que podem não existir.

⚠ ATENÇÃO: Esta operação é IRREVERSÍVEL. Certifique-se de ter backup antes de executar em produção.

Código JCL

IEFDELET.jcl 
//IEFDELET JOB (ACCT),'DELETE DS',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IEFDELET - IEFBR14: DELECAO DE DATASETS                   *
//* *** ATENÇÃO: APAGA OS DATASETS PERMANENTEMENTE ***        *
//*------------------------------------------------------------*
//DELSTEP  EXEC PGM=IEFBR14
//DELPS    DD DSN=AKOM.OLD.PSFILE,
//            DISP=(OLD,DELETE,DELETE)
//DELPDS   DD DSN=AKOM.OLD.PDSLIB,
//            DISP=(OLD,DELETE,DELETE)
//DELMABE  DD DSN=AKOM.MAYBE.EXISTS,
//            DISP=(MOD,DELETE,DELETE)
Ver Detalhes →