If CA IDMS Enforcer's error level display is enabled using option 3.1.2--Environment Runtime Directives Utility, you will receive the expanded mode version of report output similar to the Report Output--Expanded Mode. See "Batch Mode--SYSLST Limitations" for more information about enabling error displays.
Regardless of the error display specified, active enforcement for a data dictionary results in naming compliance messages presented in CA IDMS utility message format. Message displays presented during dictionary update are described in Active Enforcement.
//ESXSAMPL JOB (job card parameters),CLASS=A,MSGCLASS=A //ESXSAMPL EXEC PGM=batchjob,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 //SYSPCH DD DUMMY //SYSIPT DD * . . . syntax-input . . /* //
Exhibit 4.16: Model z/OS and Z/OS JCL (ESXSAMPL)
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 ESXSAMPL 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 BATCH COMPILER WITH Enforcer' 'EXECOS OSRUN batchjob' ESXSAMPL_RC = RC 'CP SPOOL PRINTER NOCONT' 'CP CLOSE PRINTER NAME ESXSAMPL LISTING' 'CP SPOOL PRINTER OFF' SAY 'BATCH COMPILER FINISHED WITH A RETURN CODE OF ' ESXSAMPL_RC 'GLOBAL LOADLIB' 'GLOBAL TXTLIB' 'FILEDEF * CLEAR' EXIT ESXSAMPL_RC
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ CREATE_INPUT_PARM_FILE: /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */ SIGNAL OFF ERROR 'ERASE ESXSAMPL SYSIPT A' PUSH 'FFILE' PUSH PUSH batch-compiler-syntax PUSH batch-compiler-syntax PUSH batch-compiler-syntax PUSH 'INPUT' PUSH 'SET LRECL 80' PUSH 'SET RECFM F' 'XEDIT ESXSAMPL 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 ESXSAMPL LISTING' 'CP SPOOL PRINTER OFF' 'GLOBAL LOADLIB' 'FILEDEF * CLEAR' EXIT ERROR_RC /* */
Exhibit 4.17: Model Z/VM EXEC--ESXSAMPL
Key to Variables
Copyright © 2013 CA.
All rights reserved.
|
|