CA Jclchk 12.0 : How to suppress message ( n CARDS IN INPUT STREAM DATA SET) in REXX code

book

Article ID: 130728

calendar_today

Updated On:

Products

CA JCLCheck Workload Automation

Issue/Introduction

CA JCLCheck is able to read, interpret and list in output report, a JCL input stream content, when related to the programs declared in the JCLUPT according to the Runtime Options CNTL, CTLSCAN and CCLIST. We provide details about this argument in the CA JCLCheck Reference Guide.
Below a sample JCLCheck sysout listing : 

//ITITIT    JOB (UNKNOWN),UNKNOWN  **STMT SUPPLIED**           
//JS020    EXEC  PGM=IEFBR14                                  
//SYSPRINT DD SYSOUT=*                                        
//SYSIN    DD *                                               
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
TEST JCLCHECK R12 WITH SYSIN IN JOB                           
(11 CARDS IN INPUT STREAM DATA SET)                           
//*************************************************           
...
If CAZ1REXX is customized and used to do additional checks during validation, it happens that  when the record  

(n CARDS IN INPUT STREAM DATA SET) 

is generated by our product, the CAZ1REXX RAW_DATA_PROCESSING section catches it in the $CA.RECORDS and adds it at the end of the input-stream analyzed, causing unpredictable results so it would be necessary to find a way to skip these kind of messages in the REXX.
How to do that? 
 

Environment

Release:
Component: JCLCHK

Resolution

This data can be easily skipped in the RAW_DATA_PROCESSING routine using the following sample code: 

Do n = 1 to $ca.rcount 

SAY 'Data: ' $CA.RECORD.n 
if substr($CA.RECORD.n,1,1) = '(' then do 
if pos('IN INPUT STREAM DATA SET)',$CA.RECORD.n,2) /= 0 then do 
SAY 'Skipped Data: ' $CA.RECORD.n 
iterate n 
end 
end 
SAY 'Processed: ' $CA.RECORD.n 

End