Home / JCL Library

📋 AKOM.JCL — JCL Library

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

IEBDG

1 membros
IEBDGGEN
CREATE — Gerar Dados de Teste
▶

Gera registros de teste com IEBDG usando Field Definitions (FD). Suporta campos sequenciais (SEQ), alfanuméricos (AL), aleatórios (RAN) e fixos (FX).

Código JCL

IEBDGGEN.jcl 
//IEBDGGEN JOB (ACCT),'IEBDG GENERATE',CLASS=A,MSGCLASS=X,
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*------------------------------------------------------------*
//* IEBDGGEN - IEBDG: GERA DADOS DE TESTE                    *
//*------------------------------------------------------------*
//GENSTEP  EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//OUTFILE  DD DSN=AKOM.TEST.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(5,1)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSIN    DD *
  DSD OUTPUT=(OUTFILE)
  FD NAME=SEQFLD,LENGTH=6,STARTLOC=1,FORMAT=ZD,ACTION=SEQ,
     BEGIN=000001,INCREMENT=1
  FD NAME=NAMEFLD,LENGTH=20,STARTLOC=7,FORMAT=AN,ACTION=AL,
     FILL=C'MAINFRAME'
  FD NAME=FIXFLD,LENGTH=4,STARTLOC=27,FORMAT=AN,ACTION=FX,
     FILL=C'AKOM'
  CREATE QUANTITY=1000,NAME=(SEQFLD,NAMEFLD,FIXFLD)
  END
/*
Ver Detalhes →