Sample CZADEFBL JCL
The following sample illustrates the hypothetical use of CZADEFBL to create BMC AMI Defender definitions for SMF Type 81 records from the DSECT in the IBM macro IFASMFR. This file is provided in amihlq.CZAGENT.CNTL as member CZADEFBL.
Appropriate job card
//ASSEMBLE EXEC PGM=ASMA90,COND=(12,LE),REGION=2M,
// PARM='ADATA'
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSPUNCH DD DUMMY
//SYSIN DD *
IFASMFR 81
END
//SYSLIN DD DUMMY
//SYSADATA DD SPACE=(TRK,(15,15)),DISP=(NEW,PASS)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
//* Process the ADATA with CZADEFBL
//CZADEFBL EXEC PGM=CZADEFBL,
// PARM='TRACE(),CONTEXT(SMF_T81),GET("GBase(%s %d)"),MINOFF(22)'
//STEPLIB DD DSN=<amihlq>.CZAGENT.LOAD,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=CEE.SCEERUN2,DISP=SHR
//CZAPRINT DD SYSOUT=*
//CZDEFINE DD SYSOUT=*
//SYSADATA DD DSN=*.ASSEMBLE.SYSADATA,DISP=(OLD,DELETE)
//ASSEMBLE EXEC PGM=ASMA90,COND=(12,LE),REGION=2M,
// PARM='ADATA'
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSPUNCH DD DUMMY
//SYSIN DD *
IFASMFR 81
END
//SYSLIN DD DUMMY
//SYSADATA DD SPACE=(TRK,(15,15)),DISP=(NEW,PASS)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
//* Process the ADATA with CZADEFBL
//CZADEFBL EXEC PGM=CZADEFBL,
// PARM='TRACE(),CONTEXT(SMF_T81),GET("GBase(%s %d)"),MINOFF(22)'
//STEPLIB DD DSN=<amihlq>.CZAGENT.LOAD,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=CEE.SCEERUN2,DISP=SHR
//CZAPRINT DD SYSOUT=*
//CZDEFINE DD SYSOUT=*
//SYSADATA DD DSN=*.ASSEMBLE.SYSADATA,DISP=(OLD,DELETE)
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*