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

SET Processing Subroutine for JCLNeat

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

/******************************************************************************/
/*  SET Processing Logic                                                      */
/******************************************************************************/
/*  The value of all SET variables are only maintained within a given         */
/*  SET statement. When another statement is encountered, the values change.  */
/******************************************************************************/
A    SET_PROCESSING:
B     If SET.PARM_COUNT > 0 then
      Do
        Say 'SET.PROCNAME is '||SET.PROCNAME
        Say 'SET.PARM_COUNT is '||SET.PARM_COUNT
        Do I = 1 TO SET.PARM_COUNT
          SAY 'Parm '||I||' 'SET.PARM_NAME.I'='SET.PARM_VALUE.I
        End
      End
C    Return

A

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

B

IF statement selects SET statements that have at least one parameter and then lists out all supplied parameters and their values.

C

Causes control to return to the main DO WHILE loop.