JCLNeat REXX Programming Interface › The INITIAL PROCESSING and DO WHILE Loop › 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 CAY6541.

      /********************************************************************/
      /*  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 "CAY6541".                                        */
      /********************************************************************/
      $CAJCL_ERROR:
      PARSE ARG $CAJCL_SEVERITY,$CAJCL_MESSAGE;
        CALL 'CAZ1NRXE' $CAJCL_PARM $CAJCL_SEVERITY $CAJCL_MESSAGE ;
      Return

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

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