Job Control Standards › Printing Standards on the Database

Printing Standards on the Database

To print a standard, invoke member AZ1JCSR in your CAZ2JCL library, which executes procedure CAZ1RLST. Print one standard at a time by specifying the standard name on the PARM on the EXEC statement. The following is the JCL for AZ1JCSR:

//* PRODUCE A PRINTOUT OF A SPECIFIC STANDARD FROM YOUR
//* STANDARDS DATABASE
//****************************************************************************
//PRTSTD   EXEC CAZ1RLST,
//      CAILOAD='CHQA.J6C0SAMP.CAILOAD',		<== LOADLIB WITH CAZ1RLST PGM
//      STDNAME='STD00001',  			<== STANDARD NAME TO BE PRINTED
//      RULES='CHQA.J6C0SAMP.JCLCHK.STDRULE' 	<== JCS RULES DATABASE

The printed out report would look similar to the following report.

 CA                    JOB CONTROL STANDARDS            PAGE
 CA JCLCheck           STANDARD NAME: TS1STD01       mm/dd/yy 10:05:4

 *** TS1STD01 JOB/NAME

 INITIAL: JOB NAME EQ P001* OR
 INITIAL: JOB NAME EQ P002* ACT00100
   ACT00100: JOB ACCOUNT EQ 40100000 ACT00200
     ACT00200: DD ddname EQ PAYINPUT ACT00300
       ACT00300: DD DSNAME EQ PAYROLL.INPUT.FILE ACT00400
         ACT00400: DD DISP_1 EQ OLD OR
         ACT00400: DD DISP_1 EQ SHR ACCEPT
         ACT00400: DD DISP_1 EL ERROR030
   ACT00100: JOB ACCOUNT NE 40100000 ERROR020
 INITIAL: JOB NAME EL ERROR010
 *** TS1STD01 ERROR MESSAGES
 ERROR010: ERROR SEVERITY: E ERROR MESSAGE #: 010
      ERROR TEXT: INVALID JOB NAME
 ERROR020: ERROR SEVERITY: E ERROR MESSAGE #: 020
      ERROR TEXT: INVALID ACCOUNT
 ERROR030: ERROR SEVERITY: E ERROR MESSAGE #: 030
      ERROR TEXT: INPUT PAYROLL FILE MUST BE PROVIDED