CA JCLCheck REXX Programming Interface › REXX EXECs › The $CAJCL_ERROR Subroutine

The $CAJCL_ERROR Subroutine

This subroutine is called from subsequent subroutines to issue the associated error messages. These messages carry the prefix CAY6341.

   /********************************************************************/
   /*  Internal subroutine to issue a CA JCLCheck error message        */
   /********************************************************************/
   /*  Prior to calling set the values of:                             */
   /*  $CAJCL_SEVERITY must contain the severity of message: I,W,E,S   */
   /*     I=informational, W=warning, E=error, S=serious               */
   /*  $CAJCL_MESSAGE must contain the text of the message, any case   */
   /*  can be specified. (upper/lower). The resultant message is       */
   /*  prefixed with "CAY6341".                                        */
   /********************************************************************/
   $CAJCL_ERROR:
   PARSE ARG $CAJCL_SEVERITY,$CAJCL_MESSAGE
     CALL 'CAZ1JRXE' $CAJCL_PARM $CAJCL_SEVERITY $CAJCL_MESSAGE
   Return

You do not need to modify this subroutine. It calls all the necessary CA JCLCheck internal functions needed to produce user-generated error messages for JCL.

Note: If you supply an invalid severity code, CA JCLCheck assumes a severity I (informational).