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

JCLLIB Processing Subroutine for JCLNeat

The JCLLIB processing subroutine checks for anything that is related only to JCLLIB statement processing. You can still reference the JOB, EXEC, DD, and other statement variables as needed. Only one JCLLIB statement is active at any one time.

/******************************************************************************/
/* JCLLIB Processing Logic                                                    */
/******************************************************************************/
/* The value of all JCLLIB variables are only maintained within a given       */
/* JCLLIB statement. When another statement is encountered, the values change.*/
/******************************************************************************/
A    JCLL_PROCESSING:
B     If JCL.ORDER1.0 > 0 then
      Do
        Say 'JCL.JCLLNAME is '||JCL.JCLLNAME
        Say 'JCLLIB ORDER 1 DSN = '||JCL.ORDER1
        Say 'NODES='||JCL.ORDER1.0
        Do I = 1 TO JCL.ORDER1.0
          SAY 'NODE'||I||'='JCL.ORDER1.I
        End
      End
C    Return

A

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

B

IF statement selects JCLLIB statements that have at least one ORDER parameter and then lists out that data set and each individual data set node.

C

Causes control to return to the main DO WHILE loop.