Starting Your Product › How to Complete Configuration With CA MSM › Install CICS Support (Optional) › CICS Storage Protection Considerations

CICS Storage Protection Considerations

Be aware that CICS storage protection cannot be used with CA Dispatch. Make the following program and transaction changes to allow the CA Dispatch CICS interface to function in an environment where CICS storage protection has been established.

There are two CICS STARTUP parameters, RENTPGM and STGPROT for the CICS storage protect feature. The following procedures will avoid DFHSR0622 and DFHSR0001 errors for CADSINTC and VCICICS when RENTPGM and STGPROT parameters are used.

Modify your CICS program and Transaction definitions as follows:

1. The DSP1 and DSP2 transactions, which invoke interface programs CADSINTC and VCICICS, must be defined with TASKDATAKEY=CICS.

   DFHPCT TYPE=ENTRY,
            TRANSID=DSP1,
            PROGRAM=CADSINTC,
            TASKDATAKEY=CICS
   

   DFHPCT TYPE=ENTRY,
            TRANSID=DSP2,
            PROGRAM=VCICICS,
            TASKDATAKEY=CICS,
            TWASIZE=400
   

2. The interface programs CADSINTC and VCICICS must be defined with EXECKEY=CICS.

   DFHPPT TYPE=ENTRY,PROGRAM=CADSINTC,RES=YES,RELOAD=NO,
   

           LANG=ASSEMBLER,EXECKEY=CICS
   

   DFHPPT TYPE=ENTRY,PROGRAM=VCICICS,RES=NO,RELOAD=NO,
   

           LANG=ASSEMBLER,EXECKEY=CICS
   

3. Ensure that CADSINTC and VCICICS are linked with NORENT parameter.

   //*---------------------------------------------------------------
   //RELINK  EXEC PGM=IEWL,
   //             PARM='XREF,LET,LIST,NCAL,NORENT',
   //             REGION=1024K
   //SYSPRINT DD  SYSOUT=*
   //SYSLIN   DD  DDNAME=SYSIN
   //SYSLIB   DD  DSN=CAI.CADSLOAD,DISP=SHR
   //SYSUT1   DD  DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(50,20))
   //SYSLMOD  DD  DSN=CAI.CICS41.CAILIB,DISP=SHR  << should this be changed? >>
   //SYSIN    DD  *
    INCLUDE SYSLIB(CADSINTC)
    ENTRY STARTUP
    MODE AMODE(31),RMODE(24)
    NAME CADSINTC(R)
    INCLUDE SYSLIB(VCICICS)
    ENTRY VCICICSE
    MODE AMODE(31),RMODE(24)
    NAME VCICICS(R)
   /*