Operations › Printing a Selection Criteria Specification--USVPSPC › z/VM EXEC

z/VM EXEC

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*
 DBX_LOADLIB_FN      = 'dbxlib'
 IDMS_LOADLIB_FN     = 'idmslib'
 /*
      Link and access the Minidisks containing the required librarie(s)
 */
 'CP SPOOL PRINTER NOCONT CLOSE'
 'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
 'GLOBAL  LOADLIB ' DBX_LOADLIB_FN IDMS_LOADLIB_FN
 /*
      Create the input parameter file.
 */
 CALL CREATE_INPUT_PARM_FILE
 /*
      Product specific files.
 */
 'FILEDEF SYSIPT   DISK USVPSPC SYSIPT A'
 'FILEDEF SYSLST   PRINTER'
 'FILEDEF SYSUDUMP PRINTER'
 /*
      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'
 'FILEDEF SYSCTL   DISK fn SYSCTL fm'
 /* */
 SIGNAL OFF ERROR
 SAY 'STARTING PRINT OF CA-IDMS/DATABASE EXTRACTOR SPECIFICATION'
 'EXECOS OSRUN USVPSPC'
 USVPSPC_RC = RC
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USVPSPC LISTING'
 'CP SPOOL PRINTER OFF'
 SAY 'USVPSPC FINISHED WITH A RETURN CODE OF' USVPSPC_RC
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT USVPSPC_RC
 /* */
 /* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 SIGNAL OFF ERROR
 'ERASE USVPSPC SYSIPT A'
 SIGNAL ON ERROR
 /* */
 PUSH 'FFILE'
 PUSH
 PUSH '  SPECNAME=specification-name'
 PUSH '  USERID=userid,'
 PUSH ' PROCESS,'
 PUSH 'INPUT'
 PUSH 'SET LRECL 80'
 PUSH 'SET RECFM F'
 'XEDIT USVPSPC 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 USVPSPC LISTING'
 'CP SPOOL PRINTER OFF'
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT ERROR_RC
 /* */