CA JCLCheck OPC/ESA interface: update to proc CAZ1OPCA

book

Article ID: 130622

calendar_today

Updated On:

Products

CA JCLCheck Workload Automation

Issue/Introduction

Proc CAZ1OPCA from the CA JCLCheck CAZ2PROC library invokes IEBCOPY using concatenated input libraries.  IEBCOPY does not allow data set concatenation, and therefore a new procedure is provided to correct the IEBCOPY step and its control statements. 

Cause

IEBCOPY control statement:
       COPY INDD=((OPCAJCL,R)),OUTDD=PDSFILE

IEBCOPY failed with the following message: 
       IEB160I CONCATENATED DATA SETS NOT ALLOWED.  USE MULTIPLE INDD= OPERANDS.

Environment

CA JCLCheck release 12.0 
CA JCLCheck OPC/ESA interface

Resolution

1. Change Step3 in proc CAZ1OPCA from: 

//STEP3    EXEC PGM=IEBCOPY                              
//OPCAJCL  DD  DSN=&PROD..OPCESA.JCLLIB1,DISP=SHR        
//         DD  DSN=&PROD..OPCESA.JCLLIB2,DISP=SHR        
//         DD  DSN=&PROD..OPCESA.JCLLIB3,DISP=SHR        
//         DD  DSN=&PROD..OPCESA.JCLLIB4,DISP=SHR        
//         DD  DSN=&PROD..OPCESA.JCLLIB5,DISP=SHR        
//PDSFILE  DD  DSN=&&TEMP,DISP=(,PASS),                  
//             UNIT=&OUNIT,SPACE=(CYL,(10,5,50)),        
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)      
//SYSPRINT DD  SYSOUT=*                                  
//SYSIN    DD  DSN=&CAIHLQ..CAZ2OPTN(CAZ1OPCC),DISP=SHR  
//         DD  DSN=&CAIHLQ..OPCESA.JCK.JCLCOPY,DISP=SHR  


to:

//STEP3    EXEC PGM=IEBCOPY                                             
//OPCAJCL1 DD  DSN=&PROD..OPCESA.JCLLIB1,DISP=SHR                       
//OPCAJCL2 DD  DSN=&PROD..OPCESA.JCLLIB2,DISP=SHR                       
//OPCAJCL3 DD  DSN=&PROD..OPCESA.JCLLIB3,DISP=SHR                       
//OPCAJCL4 DD  DSN=&PROD..OPCESA.JCLLIB4,DISP=SHR                       
//OPCAJCL5 DD  DSN=&PROD..OPCESA.JCLLIB5,DISP=SHR                       
//PDSFILE  DD  DSN=&&TEMP,DISP=(,PASS),                                 
//             UNIT=&OUNIT,SPACE=(CYL,(10,5,50)),                       
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)                     
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN    DD  DSN=&CAIHLQ..AAZ1OPTN(CAZ1OPCC),DISP=SHR                 
//         DD  DSN=&CAIHLQ..OPCESA.JCK.JCLCOPY,DISP=SHR                 


2. Change SYSIN DSN=&CAIHLQ..CAZ2OPTN(CAZ1OPCC) to have the following control statements:  

COPY INDD=((OPCAJCL1,R)),OUTDD=PDSFILE                                        
COPY INDD=((OPCAJCL2,R)),OUTDD=PDSFILE                                        
COPY INDD=((OPCAJCL3,R)),OUTDD=PDSFILE                                        
COPY INDD=((OPCAJCL4,R)),OUTDD=PDSFILE                                        
COPY INDD=((OPCAJCL5,R)),OUTDD=PDSFILE 

 
Note: If you have fewer than 5 OPCA JCL libraries, simply remove the extra INDD statement and the extra OPCAJCLx DD statement. 

Additional Information

- OPC/ESA Support:
https://docops.ca.com/pages/viewpage.action?pageId=162072439

- CA JCLCheck OPC/ESA interface: Changes to COBOL program CAZ1OPC1
https://comm.support.ca.com/kb/ca-jclcheck-opcesa-interface-changes-to-cobol-program-caz1opc1/kb000130269

- CA JCLCheck OPC/ESA interface: COBOL program CAZ1OPC2 fails to compile
https://comm.support.ca.com/kb/ca-jclcheck-opcesa-interface-cobol-program-caz1opc2-fails-to-compile/kb000130705