Previous Topic: Statistics Accumulation and/or Report PreparationNext Topic: Sample z/VM EXEC Part 3—USNEXEC3


Sample z/VM EXEC Part 2—USNEXEC2

The sample z/VM EXEC for preparing individual reports only is shown below. Variables (shown in bold) are explained in the key that follows.

/*  */
TRACE OFF; SIGNAL ON ERROR
CA_LOADLIB_FN       = 'yourlib'
IDMS_LOADLIB_FN     = 'idmslib'
SORTLIB_FN          = 'sortlib'
/*                                                                   */
/* Link and access the Minidisks containing the required libraries */
/*                                                                   */
 'CP SPOOL PRINTER NOCONT CLOSE'
 'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
 'GLOBAL  LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
 'GLOBAL  TXTLIB ' SORTLIB_FN
/*                                                                   */
/* Product specific files.                                           */
/*                                                                   */
 'FILEDEF SYSLST   PRINTER'
 'FILEDEF SYSUDUMP PRINTER'
 'FILEDEF DBMSDMP  PRINTER'
 'FILEDEF DBMSOUT  PRINTER'
 'FILEDEF SORTMSG  PRINTER'
 'FILEDEF STAT1    DISK stat1_fn stat1_ft stat1_fm'
/*                                                                   */

/*  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 'USNEXEC2 SYSIPT A' containing the input  */
/*  parameter statements prior to executing this EXEC.               */
/*                                                                   */
 'FILEDEF SYSIPT   DISK USNEXEC2 SYSIPT A'
/*                                                                   */
SAY 'STARTING DATABASE ANALYZER'
SIGNAL OFF ERROR
 'EXECOS OSRUN USNDRVR'
 USNEXEC2_RC = RC
IF USNEXEC2_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' USNEXEC2_RC
 'GLOBAL LOADLIB'
 'GLOBAL TXTLIB'
 'FILEDEF * CLEAR'
 EXIT USNEXEC2_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
/*                                                                   */