Flag missing JCLLIB statement using the JCLCheck REXX interface

Products

• JCLCheck Workload Automation

Issue/Introduction

Use the JCLCheck REXX interface to produce an error message if a JCLLIB statement is not present in the JCL.

Environment

Release: 12.0
Component: JCLCheck Workload Automation

Resolution

Two sample REXX execs are located in the JCLCheck CAZ2CLS0 library.  The members are CAZ1REXX, and CAZ1REX2.

In the JOB_PROCESSING section, set the flag to N.
JOB_PROCESSING:   
 JCLLIB = N       

In the DD_PROCESSING section, set the flag to Y if JCLLIB statement is found
DD_PROCESSING:     
If DD.DDNAME = 'JCLLIB' then do   
  JCLLIB = Y      
End

In the END_JOB_PROCESSING section, issue a message if the flag for JCLLIB flag is still N
END_JOB_PROCESSING:                       
 If  JCLLIB = N Then do                 
    Call $CAJCL_ERROR 'E',                
    'PLEASE ADD MISSING JCLLIB STATEMENT' 
End                                       

This will produce the following error message:
CAY6341E  'PLEASE ADD MISSING JCLLIB STATEMENT'