Home / JCL Library

📋 AKOM.JCL — JCL Library

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

IEBGENER

2 membros
GENERCOPY
COPY — Cópia Sequencial
▶

Copia um dataset sequencial para outro, opcionalmente reorganizando campos com RECORD TYPE=EDIT e FIELD. Útil para reformatação de registros.

Código JCL

GENERCOPY.jcl 
//GENERCOPY JOB (ACCT),'IEBGENER COPY',CLASS=A,MSGCLASS=X,
//          MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* GENERCOPY - IEBGENER: COPIA SEQUENCIAL SIMPLES            *
//*------------------------------------------------------------*
//GENRSTEP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=AKOM.INPUT.SEQ,DISP=SHR
//SYSUT2   DD DSN=AKOM.OUTPUT.SEQ,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(5,1)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSIN    DD DUMMY
Ver Detalhes →
GENERPRT
PRINT — Imprimir Dataset
▶

Imprime o conteúdo de um dataset sequencial para SYSOUT usando IEBGENER com SYSUT2 apontando para SYSOUT.

Código JCL

GENERPRT.jcl 
//GENERPRT JOB (ACCT),'IEBGENER PRINT',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* GENERPRT - IEBGENER: IMPRIME DATASET PARA SYSOUT          *
//*------------------------------------------------------------*
//PRNTSTEP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=AKOM.INPUT.SEQ,DISP=SHR
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
Ver Detalhes →