Home / JCL Library

📋 AKOM.JCL — JCL Library

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

IEBCOPY

2 membros
COMPRESS
COMPRESS — Compactar PDS In-Place
▶

Recupera espaço desperdiçado em um PDS fazendo compressão in-place (INDD=OUTDD apontam para o mesmo dataset). Não requer dataset de saída separado.

Código JCL

COMPRESS.jcl 
//COMPRESS JOB (ACCT),'COMPRESS PDS',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* COMPRESS - IEBCOPY: COMPRESSAO IN-PLACE DE PDS            *
//*------------------------------------------------------------*
//COMPSTEP EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//INPDS    DD DSN=AKOM.TARGET.PDS,DISP=SHR
//SYSIN    DD *
  COPY INDD=INPDS,OUTDD=INPDS
/*
Ver Detalhes →
COPYPDS
COPY — Cópia Completa de PDS
▶

Copia todos os membros de um PDS/PDSE para outro. Suporta SELECT (membros específicos), EXCLUDE (excluir membros) e RENAME para renomear durante a cópia.

Código JCL

COPYPDS.jcl 
//COPYPDS  JOB (ACCT),'COPY PDS',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* COPYPDS - IEBCOPY: COPIA COMPLETA DE PDS                  *
//*------------------------------------------------------------*
//COPYSTEP EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//INPDS    DD DSN=AKOM.SOURCE.PDS,DISP=SHR
//OUTPDS   DD DSN=AKOM.TARGET.PDS,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(10,5,50)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSIN    DD *
  COPY INDD=INPDS,OUTDD=OUTPDS
/*
Ver Detalhes →