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

Modifying the END-OF-STEP Processing Subroutine

Change the EOS processing subroutine so that:

• If the number of cartridges is greater than four, CA JCLCheck issues a warning message per step to reduce cartridge drive utilization.
• If the number of DD statements exceeds 10, CA JCLCheck issues an error message that the STEP has exceeded site standards, increment the number of error messages by one and prevent job submission.

1. Code the first IF statement to determine the number of cartridges found within the current step. If the number is greater than four, the following statements within the DO loop are executed.
2. Code the following DO loop to call the $CAJCL_ERROR subroutine so that CA JCLCheck issues the associated (W)arning message.
3. Code the IF statement on the following line to determine the number of DD statements found in the current step. If the number is greater than ten, the following statements within the DO loop are executed.
4. Code the following DO loop to call the $CAJCL_ERROR subroutine so that CA JCLCheck issues the associated (E)rror message.
5. Code error_count= (error_count + 1) to increment the number of errors by 1 upon the issuance of an (E) severity code level or higher.

   Note: The levels of severity codes are assigned as follows:

   I = 0, W = 4, E = 8, S = 12.

   This adheres to normal CA JCLCheck error severity.

6. Reset the DD counter and CART counter.
7. Code cart_count variable=0 to reset the cartridge counter to 0 for next step processing.

         /********************************************************************/
         /*  Step End  processing Subroutine                                */
         /********************************************************************/
         END_STEP_PROCESSING:
         If (cart_count > 4) then
          Do
          Call $CAJCL_ERROR,
          'W','Step 'step_name' is using 'cart_count' cartridge drives, please
         reduce utilization'
          End
         If (dd_count > 10) then
          Do
          Call $CAJCL_ERROR,
          'E','Step 'step_name' has specified 'dd_count' DD names, this exceeds site
         standards'
          error_count = (error_count + 1)
          End
          dd_count = 0
          cart_count = 0
         Return