| < Day Day Up > |
|
This appendix provides a sample of a REXX program that can be used to rebuild the LOGR policy using as input the report obtained with the IXCMIAPU utility with the REPORT(YES) keyword.
The skeleton in Example A-1 is a JCL sample used to rebuild the input statements for the LOGR policy. There are two steps in the job:
The first step is a LIST of the current LOGR policy content where the output is put into a temporary sequential data set.
The second step is the invocation of the LOGRPOL REXX CLIST to read the output report from the temporary data set and rebuild from them the LOGR policy definition into a new data set.
Example A-1: JCL Skeleton sample
//JLOGRPOL JOB (0,0),'JLOGRPOL',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID //******************************************************************** //* THIS JOB BUILDS IXCMIAPU STATEMENTS TO DEFINE THE LOGGER-RELATED //* STRUCTURES AND LOGSTREAMS. //* IT IS VERY USEFUL IF THE JOB USED TO MAINTAIN THE LOGGER //* DEFINTIONS GETS LOST! //******************************************************************** //STEP1 EXEC PGM=IXCMIAPU //SYSPRINT DD DISP=(,PASS),DSN=&&LOGR,SPACE=(TRK,(5,5)) //SYSIN DD * DATA TYPE(LOGR) REPORT(NO) LIST STRUCTURE NAME(*) LIST LOGSTREAM NAME(*) /* //STEP2 EXEC PGM=IKJEFT01,PARM='LOGRPOL' //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //SYSEXEC DD DISP=SHR,DSN=ESA.SYS1.CLIST //LOGRI DD DISP=(OLD,DELETE),DSN=&&LOGR //LOGRO DD DSN=ESA.SYS1.JCL(LOGRPOLN),DISP=SHR
Here is the content of the LOGRPOLN member to show how the LOGR statement are built by the LOGRPOL CLIST (Example A-2):
Example A-2: LOGR Policy statements
DEFINE STRUCTURE NAME(CIC_DFHLOG_001) LOGSNUM(20) MAXBUFSIZE(64000) AVGBUFSIZE(640) DEFINE STRUCTURE NAME(CIC_DFHSHUNT_001) LOGSNUM(20) MAXBUFSIZE(64000) AVGBUFSIZE(640) DEFINE LOGSTREAM NAME(#@$C.#@$CCM$2.DFHLOG2) STRUCTNAME(CIC_DFHLOG_001) LS_DATACLAS(LOGR24K) HLQ(IXGLOGR) MODEL(NO) LS_SIZE(16384) STG_SIZE(0) LOWOFFLOAD(0) HIGHOFFLOAD(80) STG_DUPLEX(NO) RETPD(0) AUTODELETE(NO) OFFLOADRECALL(YES) DASDONLY(NO) DIAG(NO) LOGGERDUPLEX(UNCOND) EHLQ(NO_EHLQ) DEFINE LOGSTREAM NAME(#@$C.#@$CCM$1.DFHSHUN2) STRUCTNAME(CIC_DFHSHUNT_001) LS_DATACLAS(LOGR24K) HLQ(IXGLOGR) MODEL(NO) LS_SIZE(16384) STG_SIZE(0) LOWOFFLOAD(0) HIGHOFFLOAD(80) STG_DUPLEX(NO) RETPD(0) AUTODELETE(NO) OFFLOADRECALL(YES) DASDONLY(NO) DIAG(NO) LOGGERDUPLEX(UNCOND) EHLQ(NO_EHLQ)
| < Day Day Up > |
|