REXX for CA JCLCheck and JCLNeat › Subroutines for CA JCLCheck › EOS Processing Subroutine for CA JCLCheck

EOS Processing Subroutine for CA JCLCheck

The EOS processing subroutine is invoked at the end of every step in the JCL stream. You can place any logic here you want. For example, you may want to make a decision based on the total steps or the total number of UNIT=TAPE occurrences.

You can use the IF statement to interrogate all the same variables as for the DD statement (that is, the last generation of JOB/EXEC/DD variables). Once again, only one generation of each statement type is active at any one time.

      /********************************************************************/
      /*  Step End  processing Subroutine                                 */
      /********************************************************************/
A       END_STEP_PROCESSING:
B       If (cart_count > 4) then
C        Do
       Call $CAJCL_ERROR,
       'W' 'Step 'exec.stepname' is using 'cart_count' cartridge drives, please
       reduce utilization';
D        cart_count = 0
       End
E       Return

A

Defines the name of this subroutine to the DO WHILE loop.

B

The IF statement that checks to see that the use of cartridge drives does not exceed four.

C

When the IF statement is TRUE, these statements are executed. This causes CA JCLCheck to issue a severity 4 error message to reduce the number of cartridge drives.

D

Causes REXX to set the counter back to zero.

E

Causes control to return to the main DO WHILE loop.