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

DPROC Processing Subroutine for JCLNeat

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

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

A

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

B

IF statement selects DPROC 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.