JCLNeat REXX Programming Interface › REXX EXEC › 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 the 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 the DO loop to call the $CAJCL_ERROR subroutine so that CA JCLCheck issues the associated (S)evere error message.
3. Code error cart_count variable=0 to reset the cartridge counter to 0 for use if there is another step.

         /********************************************************************/
         /*  Job  End  processing Logic                                     */
         /********************************************************************/
         END_JOB_PROCESSING:
         If error_count > 0 Then
          Do
            Call $CAJCL_ERROR,
            'S','JOB 'JOB.JOBNAME' has encountered too many site violations'
         error_count = 0
         End
           Return