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