Download Enforcement Report Output

Batch Utilities › CA IDMS Enforcer Batch Utilities › Download Enforcement Structure (ESXDLOD) › Download Enforcement Report Output

Download Enforcement Report Output

After executing ESXDLOD, review the Audit Report. If ESXDLOD does not execute successfully, warning and/or error messages appear on the report. Correct any errors and resubmit the job.

 //ESXDLOD  JOB (job card parameters),CLASS=A,MSGCLASS=A
 //ESXDLOD  EXEC PGM=ESXBDLD,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
 //AUDIT    DD SYSOUT=a
 //LODFILE  DD DSN=your.enforcer.structure,
 //         DISP=(NEW,CATLG),
 //         UNIT=SYSDA,
 //         SPACE=(CYL,(6,2))
 //SYSIPT   DD *
  PROCESS,
    DICTIONARY=dictionary-name,
    NODE=node-name,
    TABLES
 /*
 //

Exhibit 4.1: Model z/OS and Z/OS JCL (ESXDLOD)

Key to Variables

job card parameter — The job card parameters required at your company.
your.ca.loadlib — The name of the load library into which CA IDMS Enforcer load modules were link edited.
your.idms.loadlib — The name of the load library into which the CA IDMS load modules were link edited.
your.idms.sysctl — The dataset name of the SYSCTL file for the Central Version (CV) used during CA IDMS Enforcer batch processing.
your.dmcl.name — The name of your runtime system DMCL.
a — An appropriate SYSOUT class for your company.
your.enforcer.structure — The disk file into which the CA IDMS Enforcer structure will be downloaded.
dictionary-name — Is optional. If specified, must be a 1- to 8-character name of the dictionary specified for utility function.

node-name — Is optional. If specified, must be a 1- to 8-character name of the node specified for utility function.

 * $$ JOB JNM=ESXDLOD
 // JOB ESXDLOD
 // OPTION NODUMP
 // UPSI   a
 // ASSGN  SYS009,IGN

 *  *** CORE IMAGE LIBRARY FOR PRODUCT
 // DLBL   ca,'your.corelib'
 // EXTENT ,volserc
 // LIBDEF PHASE,SEARCH=(ca.sublibrary,idms.sublibrary),TEMP
 *
 *  *** INPUT - SYNTAX
 // ASSGN  SYSIPT,SYSRDR
 *
 *  *** OUTPUT - AUDIT REPORT FILE
 // ASSGN  SYS011,SYSLST
 *
 *  *** OUTPUT  - STRUCTURE DOWNLOAD FILE
 // DLBL   LODFILE,'your.enforcer.structure',0,SD
 // EXTENT SYS014,volserw,,,strtrks,trks
 // ASSGN  SYS014,DISK,VOL=volserw,SHR
 *
 *  *** DOWNLOAD Enforcer STRUCTURE
 // DLBL SYSIDMS,'#SYSIPT',0,SD
 // EXEC   ESXBDLD,SIZE=(ESXBDLD,400K)
  PROCESS,
   DICTIONARY=dictionary-name,
   NODE=node-name
 /*
 *
 *  Rnn.n OPTIONAL SYSIDMS PARAMETERS
 *
 /*
 * $$ EOJ

Exhibit 4.2: Model Z/VSE JCL (ESXDLOD.S)

Key to Variables

a — The UPSI switch to be replaced with specifications from the IDMSOPTI module.
ca or ca.sublibrary – The file name of the core image library into which the executable phases of CA IDMS Enforcer were installed.
your.corelib – The name of the core image library into which the executable phases of CA IDMS Enforcer were installed.
volser – The volume serial number or generic assignment of the disk volume on which the library, as specified in the previous statement, resides. The following letters identify the type of library or installation media: c=core image library, w=work file, r=relocatable library, and s=source statement library.
idms or idms.sublibrary – The file name of the core image library into which the executable phases of CA IDMS were installed.
your.enforcer.structure – The name of the file to which the CA IDMS Enforcer structure is downloaded.
strtrks – The starting track of the disk file specified in the previous statement.
trks – The number of tracks of the disk file specified in the previous statement.
dictionary-name – The name of the alternate dictionary specified for download.

node-name – The name of the node specified for download.

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*                                                                   */
 /* ESXDLOD                                                           */
 /*                                                                   */
 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  AUDIT    PRINTER'
 'FILEDEF  LODFILE  DISK LODFILE SYSIPT A'
 'FILEDEF  SYSIPT   DISK ESXDLOD 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/Enforcer DOWNLOAD'
 'EXECOS OSRUN ESXBDLD'
 ESXBDLD_RC = RC
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME ESXDLOD LISTING'
 'CP SPOOL PRINTER OFF'
 SAY 'Enforcer DOWNLOAD FINISHED WITH A RETURN CODE OF ' ESXBDLD_RC
 'GLOBAL LOADLIB'
 'GLOBAL TXTLIB'
 'FILEDEF * CLEAR'
 EXIT ESXBDLD_RC
 /*                                                                   */
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 SIGNAL OFF ERROR
 'ERASE ESXDLOD  SYSIPT A'
 /*                                                                   */
  PUSH 'FFILE'
  PUSH
  PUSH 'TABLES'
  PUSH 'NODE=node-name,'
  PUSH 'DICTIONARY=dictionary-name,'
  PUSH 'PROCESS,'
  PUSH 'INPUT'
  PUSH 'SET LRECL 80'
  PUSH 'SET RECFM F'
  'XEDIT ESXDLOD 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 ESXDLOD LISTING'
 'CP SPOOL PRINTER OFF'
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT ERROR_RC
 /*                                                                   */

Exhibit 4.3: Model Z/VM EXEC—ESXDLOD

Key to Variables

yourlib — The file name of the load library into which you downloaded CA IDMS Enforcer.
idmslib — The file name of the load library containing your CA IDMS SUBSCHEMA and DMCL modules.
txtlib— The name of the text library containing your CA IDMS text files.
LODFILE SYSIPT A — The name of the disk file into which the CA IDMS Enforcer structure will be downloaded. If necessary, rename the file to suit your site's naming standards.
dictionary-name — The name of the alternate dictionary specified for download.
node-name — The name of the node specified for download.