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

DD Processing Subroutine for CA JCLCheck

Use this DD processing subroutine to check anything that is specifically related to only DD statement processing. You can still reference the JOB and EXEC statement variables as needed. Only one DD statement is active at any one time.

      /********************************************************************/
      /* Data Definition Processing Subroutine                            */
      /********************************************************************/
      /* The value of all DD variables is maintained across one DD        */
      /* (that is, the next DD JCL statement causes the values to change).*/
      /********************************************************************/
A       DD_PROCESSING:
B       If (DD.UNIT = 'CART') then
       Do
       cart_count = (cart_count + 1)
       End
C       Return

A

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

B

All lines between B and C keep track of the total number of cartridge drives referenced by UNIT=CART. When the UNIT name is equal to CART, the cart_count variable is incremented by 1.

Note: You can only use the variables specified in the JOB and EXEC and DD processing subroutines in the variables list under the topic Variable List for CA JCLCheck in this chapter to set up the criteria for these IF statements.

C

Causes control to return to the main DO WHILE loop.