Operations › Printing JCL--USVPJCL › z/VM JCL

z/VM JCL

 /*  */
 TRACE OFF; SIGNAL ON ERROR
 /*
 DBX_LOADLIB_FN      = 'dbxlib'
 IDMS_LOADLIB_FN     = 'idmslib'
 /*
      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 ' DBX_LOADLIB_FN IDMS_LOADLIB_FN
 /*
      Create the input parameter file.
 CALL CREATE_INPUT_PARM_FILE
 /*
      Product specific files.
 'FILEDEF SYSLST   PRINTER'
 'FILEDEF SYSUDUMP PRINTER'
 'FILEDEF SYSIPT   DISK USVPJCL SYSIPT A'
 /*
      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 JCL'
 'EXECOS OSRUN USVPJCL'
 USVPJCL_RC = RC
 'CP SPOOL PRINTER NOCONT'
 'CP CLOSE PRINTER NAME USVPJCL LISTING'
 'CP SPOOL PRINTER OFF'
 SAY 'USVPJCL FINISHED WITH A RETURN CODE OF' USVPJCL_RC
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT USVPJCL_RC
 /* */
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 CREATE_INPUT_PARM_FILE:
 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
 SIGNAL OFF ERROR
 'ERASE USVPJCL SYSIPT A'
 SIGNAL ON ERROR
 /* */
 PUSH 'FFILE'
 PUSH
 PUSH '  JCLMBR=jcl.member.name'
 PUSH '  USERID=userid,'
 PUSH ' PROCESS,'
 PUSH 'INPUT'
 PUSH 'SET LRECL 80'
 PUSH 'SET RECFM F'
 'XEDIT USVPJCL 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 USVPJCL LISTING'
 'CP SPOOL PRINTER OFF'
 'GLOBAL LOADLIB'
 'FILEDEF * CLEAR'
 EXIT ERROR_RC
 /* */