Print SELECT Values

Batch Utilities › CA IDMS Enforcer Batch Utilities › Enforcement Structure Print (ESXPRINT) › Print SELECT Values

Print SELECT Values

Each of the entity-type names must be fully specified as listed below.

You must select one or more entity types or specify the ALL parameter on the SELECT statement. If you select more than one entity, the entity name must be encased in parenthesis and separated with commas.

Value	Value	Value
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.7: Print SELECT Values

 //ESXPRINT JOB (job card parameters),CLASS=A,MSGCLASS=A
 //ESXPRINT EXEC PGM=ESXBPRT,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
 //WORKFIL  DD DSN=your.print.work.file,
 //         DISP=(NEW,DELETE,DELETE),
 //         UNIT=SYSDA,
 //         SPACE=(CYL,(1,1))
 //SYSLST   DD SYSOUT=a
 //SYSIPT   DD *
  PROCESS,
    DICTIONARY=dictionary-name,
    NODE=node-name,
    SNAPSHOT
  SELECT=select-value(s)
 /*
 //

Exhibit 4.8: Model z/OS and Z/OS JCL (ESXPRINT)

Key to Variables

job card parameters — 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 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.print.work.file — The work file used by the print utility.
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.

select-value(s) — The entity-type name(s) selected for print. The required keyword, SELECT, provides the entity types that are selected for print.Select one or more entity types or specify the ALL parameter on the SELECT statement. Multiple entity names must be encased in parenthesis and separated by commas. See Print SELECT Values for SELECT values.

 * $$ JOB JNM=ESXPRINT
 // JOB ESXPRINT
 *
 // 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 - PRINT REPORT FILE
 // ASSGN  SYS011,SYSLST
 *
 *  *** WORK - Enforcer PRINT WORK FILE
 // DLBL   WORKFIL,'your.print.work.file,,0,SD
 // EXTENT SYS015,volserw,,,strtrks,trks
 // ASSGN  SYS015,DISK,VOL=volserw,SHR
 *
 *  *** PERFORM Enforcer ENTITY-TYPE PRINT
 // DLBL SYSIDMS,'#SYSIPT',0,SD
 // EXEC   ESXBPRT,SIZE=(ESXBPRT,400K)
  PROCESS,
    DICTIONARY=dictionary-name,
    NODE=node-name,
    SNAPSHOT
  SELECT=(select-values)
 /*
 *  Rnn.n OPTIONAL SYSIDMS PARAMETERS
 /*
 /*
* $$ EOJ

Exhibit 4.9: Model Z/VSE JCL (ESXPRINT.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.print.work.file — The work file used for internal processing during the print process.
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 upload.
node-name — The name of the node specified for upload.

select-value(s) — The entity-type name(s) selected for print. The required keyword, SELECT, provides the entity types that are selected for print. You must select one or more entity types or specify the ALL parameter on the SELECT statement. Multiple entity names must be encased in parenthesis and separated by commas. See Print SELECT Values for SELECT values.

 /*  */
 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 ESXPRINT SYSIPT A'
 'FILEDEF  WORKFIL  DISK FILE WORKFIL 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 PRINT UTILITY'
 'EXECOS OSRUN ESXBPRT'
 ESXBPRT_RC = RC
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME ESXPRINT LISTING'
 'CP SPOOL PRINTER OFF'
 SAY 'DICTIONARY PRINT FINISHED WITH A RETURN CODE OF ' ESXBPRT_RC
 'GLOBAL LOADLIB'
 'GLOBAL TXTLIB'
 'FILEDEF * CLEAR'
 EXIT ESXBPRT_RC

 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 SIGNAL OFF ERROR
 'ERASE ESXPRINT SYSIPT A'
 /*                                                                   */
  PUSH 'FFILE'
  PUSH
  PUSH 'SELECT=select-values'
  PUSH 'SNAPSHOT'
  PUSH 'NODE=node-name,'
  PUSH 'DICTIONARY=dictionary-name,'
  PUSH 'PROCESS,'
  PUSH 'INPUT'
  PUSH 'SET LRECL 80'
  PUSH 'SET RECFM F'
  'XEDIT ESXPRINT 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 ESXPRINT LISTING'
 'CP SPOOL PRINTER OFF'
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT ERROR_RC

Exhibit 4.10: Model Z/VM EXEC--ESXPRINT

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.
FILE WORKFIL A — The name of the work file used by this utility. 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.
select-value(s) — The entity-type name(s) selected for print. The required keyword, SELECT, provides the entity types that are selected for print. You must select one or more entity types or specify the ALL parameter on the SELECT statement. Multiple entity names must be encased in parenthesis and separated by commas. See Print SELECT Values for SELECT values.

CA-TOOLS RELEASE CA IDMS Enforcer DATE TIME PAGE Rnn.nn Structure Hard-Copy mm/dd/yy hh:mm:ss nnnn ****************************************** AREA *************************************************** Enforcement for: Dictionary , Node , Entity AREA Template DC01 ────+----1----+--- aaas************** where: Template mode is non-bracketed. Enforcement template length is 18. Severity class is 001 and severity level is E-error. aaa Position: 01 Length: 03 Type is System Table. The following value(s) MAY be used: ATA ESS GSD GSI GSM GSS SSK TPS USA USD USE USF USG USL USM USN USR USS USX XDM s Position: 04 Length: 01 Type is System Table. The following value(s) MAY be used: DEST , test DICT , test LINE , test LT01 , test NODE , test PT01 , test TEST , test TYPE , test

Exhibit 4.11: Structure Hard-Copy Report