JCLCheck REXX interface: how to bypass processing of statement ' n CARDS IN INPUT STREAM DATA SET'
search cancel

JCLCheck REXX interface: how to bypass processing of statement ' n CARDS IN INPUT STREAM DATA SET'

book

Article ID: 130728

calendar_today

Updated On:

Products

JCLCheck Workload Automation

Issue/Introduction

Sample JCL to be validated: 

//MYJOB   JOB (12345),'TEST',CLASS=X           
//STEP01  EXEC  PGM=IEFBR14                                  
//SYSPRINT DD SYSOUT=*                                        
//SYSIN    DD *                                               
TEST CONTROL STATEMENT 1                           
TEST CONTROL STATEMENT 2                           
TEST CONTROL STATEMENT 3                        
/*          

After validation:

//MYJOB   JOB (12345),'TEST',CLASS=X           
//STEP01  EXEC  PGM=IEFBR14                                  
//SYSPRINT DD SYSOUT=*                                        
//SYSIN    DD *                                               
/* 
(3 CARDS IN INPUT STREAM DATA SET)                   
             

In the CAZ1REXX RAW_DATA_PROCESSING routine, after the input stream is processed, variable $CA.RECORD.n will contain this statement:  (3 CARDS IN INPUT STREAM DATA SET)
How to bypass this statement in the RAW_DATA_PROCESSING routine? 
 

Environment

Release: 12.0
Component: JCLCheck Workload Automation

Resolution

Sample codes:

RAW_DATA_PROCESSING:  
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 Data: ' $CA.RECORD.n 
End