Flag missing JCLLIB statement using CA JCLCheck using CAZ1REXX
book
Article ID: 126427
calendar_today
Updated On:
Products
CA JCLCheck Workload Automation
Issue/Introduction
You can use CAZ1REXX to produce an error message if a JCLLIB statement is not present in the JCL.
Environment
Release: Component: JCLCHK
Resolution
Use the hlq.CAZ2CLS0 member CAZ1REXX and add the following statements:
In the JOB_PROCESSING section, set the 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'