Previous Topic: Sample z/VM EXEC Part 1—USNEXEC1Next Topic: Sample z/VM EXEC Part 2—USNEXEC2


Statistics Accumulation and/or Report Preparation

/*  */
TRACE OFF; SIGNAL ON ERROR
/*                                                                   */
/*                                                                   */
TOOL_LOADLIB_FN     = 'toollib'
IDMS_LOADLIB_FN     = 'idmslib'
SORTLIB_FN          = 'sortlib'
/*                                                                   */
/* Link and access the Minidisks containing the required libraries */
/* 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 fm ( dcb'
 'FILEDEF dbfilnn DISK fn ft fm ( dcb'
/*                                                                   */
/* Product specific files.                                           */
/*                                                                   */
 'FILEDEF SYSLST   PRINTER'
 'FILEDEF SYSUDUMP PRINTER'
 'FILEDEF DBMSDMP  PRINTER'
 'FILEDEF DBMSOUT  PRINTER'
 'FILEDEF SORTMSG  PRINTER'
 'FILEDEF LDEL     DISK ldel_fn ldel_ft ldel_fm'
 'FILEDEF STAT1    DISK stat1_fn stat1_ft stat1_fm'
/*                                                                   */

Exhibit 4.11a: z/VM EXEC for Statistics Accumulation and/or Report Preparation

/*                                                                   */
/*  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'
/*                                                                   */
/*                                                                   */
/*  You must create a file 'USNEXEC1 SYSIPT A' containing the input  */
/*  parameter statements prior to executing this EXEC.               */
/*                                                                   */
 'FILEDEF SYSIPT   DISK USNEXEC1 SYSIPT A'
/*                                                                   */
/*  Insert FILEDEF statements for SORT work space as required by     */
/*  your SORT product.                                               */
/*                                                                   */
SAY 'STARTING DATABASE ANALYZER'
SIGNAL OFF ERROR
 'EXECOS OSRUN USNDRVR'
 USNEXEC1_RC = RC
IF USNEXEC1_RC > 4
 THEN DO
  CALL ERROR
 END
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME DBNLYZR LISTING'
 'CP SPOOL PRINTER OFF'
 SAY 'USNEXEC FINISHED WITH A RETURN CODE OF' USNEXEC1_RC
 'GLOBAL LOADLIB'
 'GLOBAL TXTLIB'
 'FILEDEF * CLEAR'
 EXIT USNEXEC1_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 USNLYZR LISTING'
'CP SPOOL PRINTER OFF'
 'GLOBAL LOADLIB'
 'GLOBAL TXTLIB'
 'FILEDEF * CLEAR'
 EXIT ERROR_RC
/*                                                                   */