What are the CICS 4.2 SMP/E PTF HOLD actions(++HOLD) required for adding CICS TS 4.2 support to CA InterTest for CICS r8.5?

Document ID : KB000020950
Last Modified Date : 14/02/2018
Show Technical Document Details

Description:

CICS TS 4.2 support is not available on the CA InterTest for CICS r8.5 base install cartridge or ESD installation file.

The way the CA InterTest for CICS TS 4.2 fixes are bundled you cannot install CA InterTest for CICS into a new SMP environment just for CICS TS 4.2.

CA InterTest for CICS 4.2 support must be installed into an EXISTING CA InterTest for CICS r8.5 SMP/E environment that already has CA InterTest for CICS r8.5 installed for a previous release of CICS. For example CICS TS 4.1 or TS 3.2.

The CA InterTest for CICS TS 4.2 compatibility fixes below have ++HOLD actions that are required before applying the fixes. These hold action define the CICS TS 4.2 DD DEFS, allocate the target and distribution load libraries and the CICS TS 4.2 FMIDs CBA8567, CLQ8567 and CSA8567 to the SMP CSI.

Support for CICS TS 4.2 is provided with the following Maintenance:

CBA8567 RO32035  CBA8500 RO32034
CSA8567 RO32040  CSA8500 RO32039
CLQ8567 RO32038

Solution:

The following JCL example can be used to define the CICS TS 4.2 environment to your current CA InterTest for CICS environment. Please review the ++HOLD actions on the PTFS and JCL below.

Please change INTERT85.JCL to your high level qualifier

JOBCARD
//**
//** CICS 4.2 DD DEF'S
//**
//**
//DEFDD42 EXEC PGM=GIMSMP,PARM='DATE=U',REGION=0M
//SMPCSI    DD DSN=INTERT85.JCL.SMPCSI.CSI,DISP=OLD
//SMPLTS    DD DSN=INTERT85.JCL.SMPLTS,DISP=OLD
//SMPMTS    DD DSN=INTERT85.JCL.SMPMTS,DISP=OLD
//SMPSTS    DD DSN=INTERT85.JCL.SMPSTS,DISP=OLD
//SMPPTS    DD DSN=INTERT85.JCL.SMPPTS,DISP=OLD
//SMPSCDS   DD DSN=INTERT85.JCL.SMPSCDS,DISP=OLD
//SMPLOG    DD DUMMY
//SMPOUT    DD SYSOUT=*
//SMPRPT    DD SYSOUT=*
//SMPLIST   DD SYSOUT=*
//SMPSNAP   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SMPWRK1   DD UNIT=SYSDA,SPACE=(CYL,(2,2,200)),DCB=BLKSIZE=3120
//SMPWRK2   DD UNIT=SYSDA,SPACE=(CYL,(2,2,200)),DCB=BLKSIZE=3120
//SMPWRK3   DD UNIT=SYSDA,SPACE=(CYL,(3,3,600)),DCB=BLKSIZE=3120
//SMPWRK4   DD UNIT=SYSDA,SPACE=(CYL,(2,2,200)),DCB=BLKSIZE=3120
//SMPWRK5   DD UNIT=SYSDA,SPACE=(CYL,(2,2,200)),DCB=BLKSIZE=7294
//SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT4    DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//*
//*
//SMPCNTL DD *
 SET   BDY(CAIT1) .                      /* SET  TARGET ZONE  */
 UCLIN .
 ADD   DDDEF(CACICS67)
       DATASET(INTERT85.JCL.CACICS67)
       SHR
       .
 ADD   DDDEF(ABAC67)
       DATASET(INTERT85.JCL.ABAC67)
       SHR
       .
 ENDUCL.
 SET   BDY(CAID1) .                      /* SET  DISTRIBUTION ZONE  */
 UCLIN .
 ADD   DDDEF(CACICS67)
       DATASET(INTERT85.JCL.CACICS67)
       SHR
       .
 ADD   DDDEF(ABAC67)
       DATASET(INTERT85.JCL.ABAC67)
       SHR
       .
 ENDUCL.
/*
//**    ALLOCATE the target and distribution libraries
//*
//LOADS42  EXEC PGM=IEFBR14
//*
//DLIB42   DD DSN=INTERT85.JCL.ABAC67,
//            DISP=(NEW,CATLG),
//            UNIT=SYSDA,
//            VOL=SER=OSI004,
//            SPACE=(6144,(610,200,75)),
//            DCB=(RECFM=U,BLKSIZE=6144,DSORG=PO)
//*
//TLIB42   DD DSN=INTERT85.JCL.CACICS67,
//            DISP=(NEW,CATLG),
//            UNIT=SYSDA,
//            VOL=SER=OSI004,
//            SPACE=(6144,(600,200,75)),
//            DCB=(RECFM=U,BLKSIZE=6144,DSORG=PO)
//*
//**                                                                    
//**  RECEIVE, APPLY and ACCEPT THE CICS 4.2 FMID'S                                                    
//**                                                                    
//**                                                                    
//CBADEF    EXEC PGM=GIMSMP,                                            
//          PARM='CSI=INTERT85.JCL.SMPCSI.CSI',                         
//          REGION=0M                                                   
//SMPPTFIN DD DATA,DLM=$$                                               
++FUNCTION(CBA8567).                                                    
++VER(Z038).                                                            
$$                                                                      
//SMPCNTL   DD   *                                                      
  SET BDY(GLOBAL).                                                     
  RECEIVE SELECT( CBA8567 ) SYSMOD.                                    
  SET BDY(CAIT1).                                                      
  APPLY   SELECT( CBA8567 ).                                           
  SET BDY(CAID1).                                                      
  ACCEPT  SELECT( CBA8567 ).                                           
/*                                                                      
//***                                                                   
//CSADEF    EXEC PGM=GIMSMP,                                            
//          PARM='CSI=INTERT85.JCL.SMPCSI.CSI',                         
//          REGION=0M                                                   
//SMPPTFIN DD DATA,DLM=$$                                               
++FUNCTION(CSA8567).                                                    
++VER(Z038).                                                            
$$                                                                      
//SMPCNTL   DD   *                                                      
  SET BDY(GLOBAL).                                                     
  RECEIVE SELECT( CSA8567 ) SYSMOD.                                    
  SET BDY(CAIT1).                                                      
  APPLY   SELECT( CSA8567 ).                                           
  SET BDY(CAID1).                                                      
  ACCEPT  SELECT( CSA8567 ).                                           
/*                                                                      
//***                                                                   
//CLQDEF    EXEC PGM=GIMSMP,                                            
//          PARM='CSI=INTERT85.JCL.SMPCSI.CSI',                         
//          REGION=0M                                                   
//SMPPTFIN DD DATA,DLM=$$                                               
++FUNCTION(CLQ8567).                                                    
++VER(Z038).                                                            
$$                                                                      
//SMPCNTL   DD   *                                                      
  SET BDY(GLOBAL).                                                     
  RECEIVE SELECT( CLQ8567 ) SYSMOD.                                    
  SET BDY(CAIT1).                                                      
  APPLY   SELECT( CLQ8567 ).                                           
  SET BDY(CAID1).                                                      
  ACCEPT  SELECT( CLQ8567 ).                                           
/*                                                                      
//