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