Each of the entity-type names must be fully specified as listed below.
|
Entities |
Entities |
Entities |
|---|---|---|
|
AREA |
LOGICAL-TERMINAL |
REPORT-SYNONYM |
|
ATTRIBUTE |
MAP |
SCHEMA |
|
CLASS |
MESSAGE |
SCHEMA-RECORD |
|
COBOL-ELEMENT |
MODULE |
SET |
|
DESTINATION |
PANEL |
SUBSYSTEM |
|
ELEMENT |
PHYSICAL-TERMINAL |
SYSTEM |
|
ELEMENT-SYNONYM |
PROCESS |
TABLE |
|
ENTRY-POINT |
PROGRAM |
TASK |
|
FILE |
QFILE |
TRANSACTION |
|
FILE-SYNONYM |
QUEUE |
TRANSACTION- SYNONYM |
|
LINE |
RECORD |
USER |
|
LOAD-MODULE |
RECORD-SYNONYM |
user-defined- entity-type |
|
LOGICAL-RECORD |
REPORT |
VIEW-ID |
Exhibit 4.12: SELECT/EXCLUDE Dictionary Entities
//ESXAUDIT JOB (job card parameters),CLASS=A,MSGCLASS=A
//ESXAUDIT EXEC PGM=ESXBDIC,REGION=1000K
//STEPLIB DD DISP=SHR,DSN=your.ca.loadlib
// DD DISP=SHR,DSN=your.idms.loadlib
//SYSCTL DD DISP=SHR,DSN=your.idms.sysctl
//SYSIDMS DD *
DMCL=your.dmcl.name
//SYSLST DD SYSOUT=a
//SYSIPT DD *
PROCESS,
DICTIONARY=dictionary-name,
NODE=node-name,
TERSE,
SELECT=select-value(s),
EXCLUDE=exclude-value(s),
STARTDATE=mmddyy,
ENDDATE=mmddyy
/*
//
Exhibit 4.13: Model z/OS and Z/OS JCL (ESXAUDIT)
Key to Variables
* $$ JOB JNM=ESXAUDIT
// JOB ESXAUDIT
*
// OPTION NODUMP
// UPSI a
// ASSGN SYS009,IGN
*
* *** CORE IMAGE LIBRARY FOR PRODUCT
// DLBL dbms,'your.corelib'
// EXTENT ,volserc
// LIBDEF PHASE,SEARCH=(dbms.sublibrary,idms.sublibrary),TEMP
*
* *** INPUT - SYNTAX
// ASSGN SYSIPT,SYSRDR
*
* *** OUTPUT - AUDIT REPORT FILE
// ASSGN SYS011,SYSLST
*
* *** PERFORM PASSIVE ENFORCEMENT
// DLBL SYSIDMS,'#SYSIPT',0,SD
// EXEC ESXBDIC,SIZE=(ESXBDIC,400K)
*
* Rnn.n OPTIONAL SYSIDMS PARAMETERS
/*
PROCESS,
DICTIONARY=dictionary-name,
NODE=node-name,
TERSE
SELECT=(select-values)
EXCLUDE=(exclude-values)
STARTDATE=mmddyy
ENDDATE=mmddyy
/*
/*
* $$ EOJ
Exhibit 4.14: Model Z/VSE JCL (ESXAUDIT.S)
Key to Variables
/* */ TRACE OFF; SIGNAL ON ERROR CA_LOADLIB_FN = 'yourlib' IDMS_LOADLIB_FN = 'idmslib' IDMS_TXTLIB_FN = 'txtlib' /* */ /* Link and access the Minidisks containing the required librarie(s) */ 'GLOBAL TXTLIB IDMS_TXTLIB_FN' 'GLOBAL LOADLIB CA_LOADLIB_FN IDMS_LOADLIB_FN' 'CP SPOOL PRINTER NOCONT CLOSE' 'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF' /* */ /* Create the input parameter file. */ CALL CREATE_INPUT_PARM_FILE /* */ /* Product specific files. */ 'FILEDEF SYSLST PRINTER' 'FILEDEF SYSIPT DISK ESXAUDIT SYSIPT A' /* You must create a file 'SYSIDMS INPUT A' containing the SYSIDMS */ /* parameters you use to specify your runtime environment. */ 'FILEDEF SYSIDMS DISK SYSIDMS INPUT A' SIGNAL OFF ERROR SAY 'STARTING RUN OF CA IDMS/DICTIONARY AUDIT UTILITY' 'EXECOS OSRUN ESXBDIC' ESXBDIC_RC = RC 'CP SPOOL PRINTER NOCONT' 'CP CLOSE PRINTER NAME ESXAUDIT LISTING' 'CP SPOOL PRINTER OFF' SAY 'DICTIONARY AUDIT FINISHED WITH A RETURN CODE OF ' ESXBDIC_RC 'GLOBAL LOADLIB' 'GLOBAL TXTLIB' 'FILEDEF * CLEAR' EXIT ESXBDIC_RC
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ CREATE_INPUT_PARM_FILE: /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ SIGNAL OFF ERROR 'ERASE ESXAUDIT SYSIPT A' /* */ PUSH 'FFILE' PUSH PUSH 'EXCLUDE=(exclude-values)' PUSH 'ENDDATE=mmddyy' PUSH 'STARTDATE=mmddyy' PUSH 'SELECT=(select-values)' PUSH 'TERSE' PUSH 'NODE=node-name,' PUSH 'DICTIONARY=dictionary-name,' PUSH 'PROCESS,' PUSH 'INPUT' PUSH 'SET LRECL 80' PUSH 'SET RECFM F' 'XEDIT ESXAUDIT SYSIPT A' , '(NOPROFILE NOSCREEN NOMSG' RETURN /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ ERROR: /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ ERROR_RC = RC TRACE OFF; SIGNAL OFF ERROR SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL 'CP SPOOL PRINTER NOCONT' 'CP CLOSE PRINTER NAME ESXAUDIT LISTING' 'CP SPOOL PRINTER OFF' 'GLOBAL LOADLIB' 'FILEDEF * CLEAR' EXIT ERROR_RC
Exhibit 4.15: Model Z/VM EXEC--ESXAUDIT
Key to Variables
|
Copyright © 2013 CA.
All rights reserved.
|
|