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

JOB Processing Subroutine for JCLNeat

The JOB processing subroutine checks for anything that is related to only JOB statement processing. Only one JOB statement is active at any one time.

      /********************************************************************/
      /*  Job Card Processing Logic                                       */
      /********************************************************************/
      /*  The value of all JOB. variables is maintained within a JOB, IE: */
      /*  When the next JOB statement is encountered the values change.   */
      /********************************************************************/
A       JOB_PROCESSING:
B        If SUBSTR(JOB.JOBNAME,1,2) = 'PR' THEN
       Do
         If JOB.CLASS ¬= 'P' THEN
          Do
          Call $CAJCL_ERROR,
          'W' 'Class should be P for production work, CLASS value reset';
           JOB.CLASS = 'P'
          End
       End
C        If SUBSTR(JOB.JOBNAME,1,2) ¬= 'PR' THEN
       Do
         job.notify = '&SYSUID'.
         job.prty = ''
       End
D        If SUBSTR(JOB.JOBNAME,1,4) = 'TEST' THEN
       Do
         $CA.OPTS = 'BCI=Y,FCC=|,SECC-'
       End
E       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 job name begins with PR and job class is not equal to P, issue a warning message and set the job class to P.

The CALL statement performs the $CAJCL_ERROR subroutine, which causes JCLNeat to generate this severity code and error message in the associated reports if it encounters this error within the submitted JCL.

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

C

IF statement that sets up the checking criteria so that if job name does not begin with PR, set the values of the NOTIFY parameter to equal &SYSUID and the PRTY parameter to NULLS, thereby negating any PRTY parameter coded.

D

IF statement that sets up the checking criteria so that if the job name begins with a string equal to ‘TEST’, new options are supplied to JCLNeat.

E

Causes control to return to the main DO WHILE loop.