CA JCLCheck REXX Programming Interface › REXX EXEC #1 › Modifying the END-OF-JOB Processing Subroutine

Modifying the END-OF-JOB Processing Subroutine

Modify this subroutine to test the number of errors that occurred during processing of this JCL stream. If there were errors, have CA JCLCheck issue a severe error message to prevent job submission.

1. Code this IF statement to examine the number of errors found in the current job. If the number is greater than 0, the following statements within the DO loop are executed.
2. Code this DO loop to call the $CAJCL_ERROR subroutine so that CA JCLCheck issues the associated (S)evere error message.

         /********************************************************************/
         /*  Job  End  processing Subroutine                                */
         /********************************************************************/
         END_JOB_PROCESSING:
         IF error_count > 0 Then
          Do
            Call $CAJCL_ERROR,
          'S','JOB 'JOB.JOBNAME' has encountered too many site violations. Execution
         has been aborted'
          End
         Return