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?
Article ID: 20950
Updated On:
Products
Issue/Introduction
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 ).
/*
//
Environment
Component:
Feedback
