Operations › z/VM Operations › z/VM EXEC › 2. Running CA IDMS/DB Audit

2. Running CA IDMS/DB Audit

Sample z/VM EXEC to audit and simulate fixing the database described by your subschema is shown in Figure 5.13a and 5.13b. A key to the variables (shown in bold) is shown in Figures 5.14. A similar EXEC is contained in the source library member USAEXEC.

 TOOL_LOADLIB_FN     = 'toollib'

 IDMS_LOADLIB_FN     = 'idmslib'
 SORTLIB_FN          = 'sortlib'
 /*
 /* Link and access the Minidisks containing the required librarie(s)
 /* and database file(s).
 /*
  'CP SPOOL PRINTER NOCONT CLOSE'
  'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
  'GLOBAL  LOADLIB ' TOOL_LOADLIB_FN IDMS_LOADLIB_FN
  'GLOBAL  TXTLIB ' SORTLIB_FN
 /*
 /* Insert FILEDEFS as needed to define all required database files.
 /*
  'FILEDEF dbfil01 DISK fn ft fm6 ( dcb'
  'FILEDEF dbfilnn DISK fn ft fm6 ( dcb'
 /*
 /* Files needed for all runs.
 /*
  'FILEDEF SYSLST   PRINTER'
  'FILEDEF SYSUDUMP PRINTER'
  'FILEDEF SYSOUT   PRINTER'
  'FILEDEF SNAPIT   PRINTER'
  'FILEDEF EXTRACTS DISK USAEXEC EXTRACTS fm'
  'FILEDEF WORKFILE DISK USAEXEC WORKFILE fm'
 /*
 /* You must create a file 'SYSIDMS PARMS A' containing the SYSIDMS
 /* parameters you use to specify your runtime environment.
 /*
  'FILEDEF SYSIDMS  DISK SYSIDMS PARMS A'
 /*
 /* You must create a file 'USAEXEC SYSIPT A' containing the input
 /* parameter statements prior to executing this EXEC.
 /*
  'FILEDEF SYSIPT   DISK USAEXEC SYSIPT   A'
 /*
 /* Insert FILEDEF statements for SORT work space as required by
 /* your SORT product.
 /*
 /* Files needed for auditing or fixing integrated index sets.
 /*
  'FILEDEF DBKYWORK DISK USAEXEC DBKYWORK fm'
  'FILEDEF INDXEXTR DISK USAEXEC INDXEXTR fm'
  'FILEDEF INDXWORK DISK USAEXEC INDXWORK fm'
 /*
 /* The remaining VSAM files are needed only if you specify DISK
 /* option on the "AUDIT" parameter statement and VSAM is chosen.
 /*
 /* Remove the comments from around the next 4 statements.
 /*      'DLBL IJSYSCT vsam_fm DSN vsamcat'
         'DLBL IJSYSUC vsam_fm DSN vsamcat'
         'DLBL DBKSAVE vsam_fm DSN dbksave (VSAM'
         'DLBL DBKHASH vsam_fm DSN dbkhash (VSAM'
  */

Figure 5.13b: z/VM EXEC to Run CA IDMS/DB Audit

 SAY 'START DATABASE AUDIT"
 SIGNAL OFF ERROR
  'EXECOS OSRUN USADRVR PARM=''NOSPIE/'''
  USADRVR_RC = RC
 IF USADRVR_RC > 4
  THEN DO
   CALL ERROR
  END
  'CP SPOOL PRINTER NOCONT'
  'CP CLOSE PRINTER NAME DBAUDIT LISTING'
  'CP SPOOL PRINTER OFF'
  SAY 'USAEXEC FINISHED WITH A RETURN CODE OF' USADRVR_RC
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT USADRVR_RC
 /*
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 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 DBAUDIT LISTING'
 'CP SPOOL PRINTER OFF'
  'GLOBAL LOADLIB'
  'GLOBAL TXTLIB'
  'FILEDEF * CLEAR'
  EXIT ERROR_RC
 /*

Figure 5.13b (cont.): z/VM EXEC to Run CA IDMS/DB Audit