Previous Topic: Key to Sample z/OS JCL for Allocating FilesNext Topic: Key to Sample z/OS JCL to Run CA IDMS/DB Audit


3. Running CA IDMS/DB Audit

Sample z/OS or JCL to audit and simulate fixing the database described by your subschema is shown in Figures 5.9a and 5.9b. A key to the variables (shown in bold) and file use is shown in Figures 5.10a and 5.10b. Similar JCL is contained in Target or Distribution source library member USAEXEC.

 //*
 //* THIS JCL IS FOR AUDIT AND SIMULATED FIXING
 //*
 //DBAUDIT EXEC  PGM=USADRVR,
 //               REGION=#K,
 //               PARM='NOSPIE/'
 //STEPLIB   DD   DSN=your.loadlib,
 //               DISP=SHR
 //          DD   DSN=idms.loadlib,
 //               DISP=SHR
 //SORTLIB   DD   DSN=sort.loadlib,
 //               DISP=SHR
 //SORTWK01  DD   UNIT=disk,
 //               SPACE=(CYL,(ps,ss))
 //SORTWK02  DD   UNIT=disk,
 //               SPACE=(CYL,(ps,ss))
 //SORTWK03  DD   UNIT=disk,
 //               SPACE=(CYL,(ps,ss))
 //SORTWK04  DD   UNIT=disk,
 //               SPACE=(CYL,(ps,ss))
 //*
 //dbfil01   DD   DSN=user.dbfil01,
 //               DISP=SHR
 //          .
 //          .
 //          .
 //dbfilnn   DD   DSN=user.dbfilnn,
 //               DISP=SHR

Figure 5.9a: z/OS JCL to Run CA IDMS/DB Audit

 //*GENERAL FILES NEEDED FOR ALL RUNS.
 //*
 //EXTRACTS  DD   DSN=dbaudit.extract,
 //               DISP=OLD
 //WORKFILE  DD   DSN=dbaudit.workfile,
 //               DISP=OLD
 //*
 //sortmsg   DD   SYSOUT=a
 //SYSLST    DD   SYSOUT=a      AUDIT REPORT
 //SYSOUT    DD   SYSOUT=a      INTEGRITY ANALYSIS REPORT
 //SNAPIT    DD   SYSOUT=a
 //SYSUDUMP  DD   SYSOUT=a
 //*
 //*FILES NEEDED FOR AUDITING OR FIXING
 //*INTEGRATED INDEX SETS.
 //*
 //DBKYWORK  DD   DSN=dbaudit.dbkywork,
 //               DISP=OLD
 //INDXEXTR  DD   DSN=dbaudit.indxextr,
 //               DISP=OLD
 //INDXWORK  DD   DSN=dbaudit.indxwork,
 //               DISP=OLD
 //*
 //*FILES NEEDED ONLY IF DISK OPTION IS SPECIFIED
 //*AND VSAM IS CHOSEN
 //*
 //DBKHASH   DD   DSN=vsam.dbkhash,
 //               DISP=SHR
 //DBKSAVE   DD   DSN=vsam.dbksave,
 //               DISP=SHR
 //*
 //*THE INPUT STATEMENTS SHOWN HERE ARE EXAMPLES
 //*FOR AUDIT AND SIMULATED FIX
 //*
 //SYSIPT    DD   *
   PROCESS,SUBSCHEMA=subschema-name,
    READYMODE=RETRIEVAL,SORTMSGS=CRITICAL
   AUDIT,PAGES,USERSETS,CALCSETS,INDEX,
    CORE,SETLIMIT=3000,DBKEYTBL
   FIX=SIMULATE,PAGES,USERSETS,CALCSETS,INDEXORPHANS
   REPORTS=YES,RECDATA=HEX,SETMBRS=ALL
 /*
 //SYSIDMS   DD   *
   SYSIDMS PARAMETERS...

Figure 5.9b: z/OS JCL to Run CA IDMS/DB Audit

 /*
 //*        FILES NEEDED ONLY IF DISK OPTION IS SPECIFIED
 //*        AND BDAM IS CHOSEN
 //*
 //DBKHASH  DD   DSN=dbaudit.dbkhash,
 //              DISP=SHR
 //              DCB=DSORG=DA
 //DBKHA@@  DD   DSN*.DBKHASH,VOL=REF=*.DBKHASH,
 //              DISP=SHR
 //              DCB=DSORG=DA
 //DBKSAVE  DD   DSN=dbaudit.dbksave,
 //              DISP=SHR
 //              DCB=DSORG=DA
 //DBKSA@@  DD   DSN*.DBKSAVE,VOL=REF=*.DBKSAVE,
 //              DISP=SHR
 //              DCB=DSORG=DA

Figure 5.9c: z/OS JCL to Run CA IDMS/DB Audit