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

EXEC Processing Subroutine for JCLNeat

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

/********************************************************************/
/*  Exec Card processing Logic                                      */
/********************************************************************/
/*  The value of all EXEC variables is maintained within a STEP.    */
/*  IE: The next EXEC JCL statement causes the values to change.    */
/********************************************************************/
A      EXEC_PROCESSING:
B        IF SUBSTR(EXEC.PGM,1,3) = 'PAY' then
       Do
        exec.time_minutes = 'NOLIMIT'
       End
C        If substr(EXEC.PGM,1,1) = '&' then 
       Do
        SetParm = strip(EXEC.PGM,L,'&')
        SetStatement = '//SET001  SET 'SetParm'=IEFBR14'
        queue B SetStatement
D      End
      Return

A

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

B

IF statement that sets up the checking criteria so that if the program being executed begins with PAY, the TIME parameter is set to NOLIMIT.

Note: To set up the criteria for these IF statements or any applicable user-defined variable, only use the variables specified in the JOB and EXEC processing subroutines from the variables list. For information about the variables list, see Variable List for JCLNeat.

You can only change values for the variables of the statement type you are processing. For example, during EXEC processing you can only change EXEC variables, you cannot change JOB variables.

C

IF statement that sets up the checking criteria so that if the program name begins with &, a SET statement is added to the job stream before the current EXEC statement.

D

Causes control to return to the main DO WHILE loop.