JCLNeat REXX Programming Interface › REXX EXEC › Modifying the JOB Processing Subroutine

Modifying the JOB Processing Subroutine

Note: All values for the statement variables (that is, JOB, EXEC, DD) change when they encounter a new value for that statement variable.

Change the JOB Statement subroutine to obtain the current time and date. Code an IF statement test so that if the time is less than 17:00 hours (5:00 pm) and the job class is equal to O, CA JCLCheck issues an error message if the test is true.

1. Assign the current hour to the curr_hour variable.
2. Assign the current time in civil format, HH:MMnn, with nn being a.m. or p.m., to the curr_c_time variable.
3. Code the IF statement. If the JOB.CLASS variable is equal to O and the current time is less than 17:00 hours (5:00 p.m.), the statements within the following DO loop are executed.
4. Code the DO loop to call the $CAJCL_ERROR subroutine so that JCLNeat issues the associated (E)rror message, then set job class to D.

   Note: Error message severity levels:

   I = 0, W = 4, E = 8, S = 12

   This adheres to normal CA JCLCheck error severity standards.

         /********************************************************************/
         /*  Job Card Processing Subroutine                                 */
         /********************************************************************/
         JOB_PROCESSING:
          curr_hour = TIME(H)      /* Get current hour */
          curr_c_time = TIME(C)      /* Get time in civil format */
          If JOB.CLASS = 'O' & curr_hour < 17 then
          Do
          Call $CAJCL_ERROR,
          'W','Class "O" is reserved for second shift usage, retry after 5PM,
          it is only 'curr_c_time 'class set for first shift use'
         JOB.CLASS = 'D'
         End
         Return