Abend (code 0C4/AKEA) offset X'00007AFC' in program VPEHJN70

Article Id: 129515
Status: Published
Updated On: 14-03-2019 10:15
Products:
CA Ideal , CA CIS , CA Common Services for z/OS , CA 90s Services , CA Database Management Solutions for DB2 for z/OS , CA Common Product Services Component , CA Common Services , CA Datacom/AD , CA ecoMeter Server Component FOC , CA Easytrieve Report Generator for Common Services , CA Infocai Maintenance , CA IPC , Unicenter CA-JCLCheck Common Component , CA Mainframe VM Product Manager , CA Chorus Software Manager , CA On Demand Portal , CA Service Desk Manager - Unified Self Service , CA PAM Client for Linux for zSeries , CA Mainframe Connector for Linux on System z , CA Graphical Management Interface , CA Web Administrator for Top Secret , CA CA- Xpertware
Issue/Introduction:


We have abends in a Development CICS region, we cannot t use Ideal, because of the messages:
DFHSR0622 CICS5304 An attempt to overwrite the ECDSA has caused the abend ...
DFHSR0001 CICS5304 An abend (code 0C4/AKEA) has occurred at offset X'00007AFC'  
DFHME0116 CICS5304 618 

Cause:

VPEHJN70 is defined Uexeckey

Environment:

z/os, CA Datacom/DB Ideal 15.0

Resolution:

Modules VPEHJE70 and VPEHJN70 must be defined with EXECKEY CICS.


For information: extracted from *.CAVQSAMP(VQ15CSD)
....
DEFINE PROGRAM(VPEHJE70) GROUP(VQ15GRP)                              
       LANGUAGE(ASSEMBLER) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL)     
       USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW)  
       EXECKEY(CICS) EXECUTIONSET(FULLAPI)                           
DEFINE PROGRAM(VPEHJN70) GROUP(VQ15GRP)                              
       LANGUAGE(ASSEMBLER) RELOAD(NO) RESIDENT(NO) USAGE(NORMAL)     
       USELPACOPY(NO) STATUS(ENABLED) CEDF(YES) DATALOCATION(BELOW)  
       EXECKEY(CICS) EXECUTIONSET(FULLAPI) 
.....                          

Use CEMT transaction to verify:

CEMT I PROG(VPEHJN70)

I PROG(VPEHJN70)                                                  
STATUS:  RESULTS - OVERTYPE TO MODIFY                             
 Prog(VPEHJN70) Leng(0000000000) Ass Pro Ena Pri     Ced          
    Res(000) Use(0000000004) Bel Uex Ful Qua Cic               Nat

Put an S next to Prog.....results should look like the following...

 I PROG(VPEHJN70)              
 RESULT - OVERTYPE TO MODIFY   
   Program(VPEHJN70)           
   Length(0000000000)          
   Language(Assembler)         
   Progtype(Program)           
   ....
   Dataloc(Below)      
   Execkey(Cexeckey)   <=== verify that it is showing Cexeckey and not Uexeckey.
   ....

Additional Information:

See similar knowledge document for CTS 5.2
https://comm.support.ca.com/kb/S0C4AKEA-or-AEI0-at-CICS-startup-after-upgrading-CICS-to-CTS-52-CICS-69/KB000044549