Customização no Hercules - Procedimentos do LOGREP

Cada sistema é propenso a ter problemas e erros e o mainframe não é diferente. Em um sistema de mainframe sempre que uma falha de hardware, erros de software selecionados, e as condições do sistema selecionados ocorre, o sistema registra informações sobre o erro no data set Logrec.

Este foi o procedimento que foi feito no Hercules ADCD para poder limpar o Erep

Criando a GDG para poder salvar em um data set;

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL($ATESTE) - 01.06                   Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001 //GDG        JOB (20,FB3),CLAU,
 000002 //            CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
 000003 //* -------------------------------------------------
 000004 //* GDG - CREATE AND DELETE - CLAUDEMAR
 000005 //* -------------------------------------------------
 000006 //STP1     EXEC PGM=IDCAMS
 000007 //SYSPRINT DD SYSOUT=*
 000008 //SYSIN    DD *
 000009   DEF GDG(NAME(SYS2.LOGREC.DADOS) LIM(5) SCR)
 000010   LISTCAT ALL ENTRIES(SYS2.LOGREC.DADOS)
 000011 /*
 ****** **************************** Bottom of Data ****************************

Salvando o EREP em um dataset e depois limpa;

  Menu  Utilities  Compilers  Help

BROWSE    ADCD.Z110.PROCLIB(LOGREP) - 01.02          Line 00000000 Col 001 080
Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
000001 //LOGREC PROC
000002 //* ------------------------------------
000003 //* LOGREP BACKUP
000004 //* ------------------------------------
000005 //GRAVA    EXEC PGM=ICEGENER
000006 //SYSPRINT DD SYSOUT=*
000007 //SYSUT1   DD DUMMY
000008 //SYSUT2   DD DSN=SYS2.LOGREC.DADOS(+1),UNIT=3390,
000009 //          DISP=(NEW,CATLG,DELETE),
000010 //          SPACE=(CYL,(5,3),RLSE),VOL=SER=ZADB82,
000011 //          DCB=(BLKSIZE=8200,RECFM=VB)
000012 //* ------------------------------------
000013 //* LOGREP CLEAR
000014 //* ------------------------------------
000015 //IFCDIP00 EXEC PGM=IFCDIP00,COND=(0,NE)
000016 //SERERDS  DD  DSN=SYS1.LOGREC,DISP=OLD,
000017 //         VOL=SER=ZASYS1,UNIT=3390

Categories: Tutorial