Home / JCL Library

📋 AKOM.JCL — JCL Library

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

TERSEMAIN

2 membros
TERSPACK
PACK — Comprimir Dataset
▶

Comprime um dataset usando TERSEMAIN com PACK (compressão padrão) ou SPACK (compressão superior). SPACK pode atingir razões de 5:1 a 10:1 em datasets JCL/texto.

Código JCL

TERSPACK.jcl 
//TERSPACK JOB (ACCT),'TERSE PACK',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* TERSPACK - TERSEMAIN: COMPRESSAO DE DATASET               *
//* SPACK = compressao superior (melhor ratio, mais CPU)      *
//* PACK  = compressao padrao  (mais rapido)                  *
//*------------------------------------------------------------*
//PACKSTEP EXEC PGM=TERSEMAIN
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=AKOM.SOURCE.DATA,DISP=SHR
//SYSUT2   DD DSN=AKOM.TERSE.PACKED,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(2,1)),
//            DCB=(RECFM=VB,LRECL=1024,BLKSIZE=0),
//            UNIT=SYSDA
//SYSIN    DD *
  SPACK
/*
Ver Detalhes →
TERSUNPK
UNPACK — Descomprimur Dataset
▶

Descomprime um dataset TERSE previamente comprimido com PACK ou SPACK. O dataset de saída deve ter espaço suficiente para o tamanho original.

Código JCL

TERSUNPK.jcl 
//TERSUNPK JOB (ACCT),'TERSE UNPACK',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* TERSUNPK - TERSEMAIN: DESCOMPRESSAO DE DATASET TERSE      *
//*------------------------------------------------------------*
//UNPKSTEP EXEC PGM=TERSEMAIN
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=AKOM.TERSE.PACKED,DISP=SHR
//SYSUT2   DD DSN=AKOM.RESTORED.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(10,2)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),
//            UNIT=SYSDA
//SYSIN    DD *
  UNPACK
/*
Ver Detalhes →