JCLNeat REXX Programming Interface › REXX EXEC › Modifying the END-OF-STEP Processing Subroutine

Modifying the END-OF-STEP Processing Subroutine

Change this subroutine so that CA JCLCheck:

• Issues an error message if the number of cartridges in this JCL step exceeds four.
• Issues an error message if the number of DD statements in this JCL step exceeds ten.
• Keeps track of the number of error messages invoked during the execution of this JCL step.

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 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 code are assigned as follows: I = 0, W = 4, E = 8, S = 12. This adheres to normal CA JCLCheck error severity.

4. 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 10, the following statements within the DO loop are executed.
5. Code the following DO loop to call the $CAJCL_ERROR subroutine so that CA JCLCheck issues the associated (E)rror message.
6. Code the 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 code are assigned as follows: I = 0, W = 4, E = 8, S = 12. This adheres to normal CA JCLCheck error severity.

7. Code dd_count variable=0 to reset the DD counter to zero for use if there is another step in the JCL.
8. Code error cart_count variable=0 to reset the cartridge counter to 0 for use if there is another step.

          /********************************************************************/
          /*  Step End  processing Logic                                     */
          /********************************************************************/
          END_STEP_PROCESSING:
           If (cart_count > 4) then
           Do
           Call $CAJCL_ERROR,
           'E','Step 'step_name' is using 'cart_count' cartridge drives, please
        reduce 'Utilization'
             error_count = (error_count + 1)
          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