/* */ 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 /* */
|
Copyright © 2013 CA.
All rights reserved.
|
|