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

Modifying the END-OF-JOB Processing Subroutine

Modify this subroutine so that if there are any error messages CA JCLCheck issues a severe error against the job's job name preventing job submission.

1. Code the IF statement to determine 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 the 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