CA JCLCheck REXX to issue message if JOBNAME does not match PDS member name in EJCK

Document ID : KB000099200
Last Modified Date : 09/06/2018
Show Technical Document Details
Introduction:
Using CA JCLCheck REXX, you can issue a message if the jobname does not match the PDS member name of the JCL that you are checking.
Instructions:
Add in the RAW_DATA_PROCESSING section of your CAZ1REXX, the following statements.

RAW_DATA_PROCESSING: 
$CA.RCOUNT = $CA.RCOUNT + 0 /* Strip Leading Zero 
Say ' Record Count is:' $CA.RCOUNT 
Say 'Statement Type is:' $CA.RSTYPE 
Do n = 1 to $ca.rcount 
SAY 'Data: ' $CA.RECORD.n 
Say 'ca.imember' is $CA.IMEMBER 
Say 'ca.idsname' is $CA.IDSNAME 
Say 'ca.itype' is $CA.ITYPE 
Say 'job.jobname' is JOB.JOBNAME 
IF $CA.RSTYPE = 'JOB' Then do 
 If $CA.IMEMBER /= JOB.JOBNAME THEN DO 
Call $CAJCL_ERROR 'E', 
Jobname JOB.JOBNAME does not match the PDS member $CA.IMEMBER 
End 
End 
Return 

The error message that will appear when the job name and the pds member name do not match will be,

CAY6341E  'JOBNAME jobname     DOES NOT MATCH THE PDS MEMBER pds member name'   

for example, job name is IEF1 and the pds member name is IEFXX
CAY6341E  'JOBNAME IEF1     DOES NOT MATCH THE PDS MEMBER IEFXX'   




 
Additional Information:
As always, please contact CA Technologies support for CA JCLCheck Workload Automation if you have further questions.