📋 AKOM.JCL — JCL Library
Membros JCL prontos para uso em ambiente z/OS. Copie, adapte e execute.
IDCAMS
6 membrosIDCALTER
▶
Modifica atributos de um cluster VSAM já existente: renomear, alterar SHAREOPTIONS, EXCEPTIONEXIT, ou NEWNAME para mover entre catálogos.
Código JCL
//IDCALTER JOB (ACCT),'ALTER VSAM',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCALTER - ALTER: RENOMEIA CLUSTER VSAM *
//*------------------------------------------------------------*
//ALTERVS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER AKOM.VSAM.KSDS.CLUSTER -
NEWNAME(AKOM.VSAM.KSDS.RENAMED)
/*IDCDEFGD
▶
Define uma base de Generation Data Group (GDG) no catálogo. Parâmetros: NAME, LIMIT (máximo de gerações), SCRATCH/NOSCRATCH, EMPTY/NOEMPTY.
Código JCL
//IDCDEFGD JOB (ACCT),'DEFINE GDG',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCDEFGD - DEFINE GDG BASE *
//* Cria base de Generation Data Group com LIMIT=10 *
//*------------------------------------------------------------*
//DEFGDG EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG ( -
NAME(AKOM.BACKUP.GDG) -
LIMIT(10) -
SCRATCH -
NOEMPTY -
)
/*IDCDEFVS
▶
Define um cluster VSAM do tipo KSDS (Key Sequenced Data Set) com component de dados e índice. Parâmetros principais: NAME, CYLINDERS, KEYS, RECORDSIZE, SHAREOPTIONS.
Código JCL
//IDCDEFVS JOB (ACCT),'DEFINE KSDS',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCDEFVS - DEFINE CLUSTER VSAM KSDS *
//* Cria um cluster Key-Sequenced (KSDS) com DATA e INDEX *
//*------------------------------------------------------------*
//DEFCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER ( -
NAME(AKOM.VSAM.KSDS.CLUSTER) -
CYLINDERS(5 1) -
KEYS(10 0) -
RECORDSIZE(100 200) -
INDEXED -
SHAREOPTIONS(2 3) -
REUSE -
SPEED -
) -
DATA ( -
NAME(AKOM.VSAM.KSDS.DATA) -
) -
INDEX ( -
NAME(AKOM.VSAM.KSDS.INDEX) -
)
/*IDCDELET
▶
Remove entradas do catálogo e opcionalmente apaga o dataset do volume. PURGE ignora a data de expiração; FORCE apaga componentes dependentes.
Código JCL
//IDCDELET JOB (ACCT),'DELETE VSAM',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCDELET - DELETE CLUSTER VSAM *
//* *** ATENÇÃO: OPERAÇÃO DESTRUTIVA — DADOS SERÃO PERDIDOS ***
//*------------------------------------------------------------*
//DELCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE AKOM.VSAM.KSDS.CLUSTER -
CLUSTER -
PURGE -
FORCE
/*IDCLISTC
▶
Lista entradas no catálogo para datasets VSAM, GDGs, aliases e clusters. Use ALL para informações detalhadas ou NAME para listagem simples.
Código JCL
//IDCLISTC JOB (ACCT),'LISTCAT',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCLISTC - LISTCAT: LISTAR ENTRADAS DO CATALOGO *
//*------------------------------------------------------------*
//LISTCAT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT LEVEL(AKOM) -
ALL
/*IDCREPRO
▶
Copia ou faz backup de datasets VSAM usando REPRO. Pode copiar VSAM→VSAM, VSAM→sequencial (export) ou sequencial→VSAM (import). Suporta SKIP e COUNT para cópia parcial.
Código JCL
//IDCREPRO JOB (ACCT),'REPRO VSAM',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IDCREPRO - REPRO: BACKUP VSAM PARA SEQUENCIAL *
//*------------------------------------------------------------*
//REPROVS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INVSAM DD DSN=AKOM.VSAM.KSDS.CLUSTER,DISP=SHR
//OUTSEQ DD DSN=AKOM.BACKUP.SEQ,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,1)),
// DCB=(RECFM=VB,LRECL=204,BLKSIZE=0)
//SYSIN DD *
REPRO INFILE(INVSAM) -
OUTFILE(OUTSEQ)
/*