CA JCLcheck - how to issue a message when a particular statement is found in the JCL being scanned

book

Article ID: 198394

calendar_today

Updated On:

Products

CA JCLCheck Workload Automation Unicenter CA-JCLCheck Common Component

Issue/Introduction

Requirement is to scan the JCL and report on specific words found in the JCL.

Environment

Release : 12.0

Component : CA JCLCheck workload Automation

Resolution

This can be achieved using the exits provided for JCLNEAT processing.

See the folliowng link for more details

https://techdocs.broadcom.com/us/en/ca-mainframe-software/automation/ca-jclcheck-workload-automation/12-0/building/rexx-for-ca-jclcheck-and-jclneat/use-caz1rexx-or-caz1nrex.html

   

 

 

Additional Information

Example . Break this up into 3 sections in CAZ1REX2

1. set a flag in INITIAL_PROCESSING:  section 

flag=N

2 in the END_JOB_PROCESSING:   section, establish if the flag has been set  

IF flag = 'N' then do                                              
    Call $CAJCL_ERROR 'I',                                             
   'NOPE statement not found in JCL'                                 
   end                                                                
ELSE do                                                               
   Call $CAJCL_ERROR 'I',                                             
   'YEP  sta/ement found in JCL'                                     
   end                                                                
Return  

3.  in the RAW data processing section, in the do n=1 to $ca.count loop (i.e reading each record) 
check if the statement exists  and if it does set the flag = Y                                                               

/********************************************************************/
RAW_DATA_PROCESSING:                                                  
$CA.RCOUNT = $CA.RCOUNT + 0                  
Do n = 1 to $ca.rcount                                                
  xxx = SUBSTR($CA.RECORD.n,1,5)                                     
  IF xxx = 'abcde' then DO                                           
         flag = Y                                                      
  End                                                                 
  End                                                                 
Return