A fix is available
APAR status
Closed as program error.
Error description
After doing a KILL on a task an RLDL is issued then CICS 4.2 gets an abend PG0001. . The program check information was: =KE: Error Number: 00000002 Error Code: 0C4/AKEA Error Type: PROGRAM_CHECK . =KE: KTCB Details: Error happened in program DFHDLIDP at offset 000004C0 CICS Registers and PSW PSW: 078D2000 80000000 00000000 24AEE9C0 Instruction Length: 4 Interrupt Code: 10 . Data at PSW: 00000000_24AEE9C0 Module:DFHDLIDP Offset:000004C0 PSWDATA 24AEE500 0000 **DFHDLIDPu.W.0670I....HCI6700 .-* . The code that leads up to offset 04C0 is: 13633 * if eisbibp ᆰ= 'FF000000'X then 0004A8 5820 A000 13634 L @02,TCZSYAA(,@10_TCAPBAR) 0004AC 5850 2078 13635 L @05,TCZEISA(,@02) 0004B0 5820 5100 13636 L @02,EISBIBP(,@05) 0004B4 5520 3058 13637 CL @02,@ CF01272 0004B8 A784 0087 13638 JE @ RF03481 13640 * do; 13642 * bibp = eisbibp; 0004BC 5020 4100 13644 ST @02,BIBP 13645 * if bibstcl ᆰ= 'FFFFFFFF'X then 0004C0 5850 204C 13647 L @05,BIBSTCL(,@02) . When the Load tries to use Register 2 as the index, it fails. . The problem is the recovery routine of DFHDLIDP lost the correct base value for R3 The code should have done the JE to offset 5C6 and bypassed the abending code completely. The offending code fragment that causes a branch into code that gets the program check (0C4) is a CL thus: . 0004B4 5520 3058 01D68 13637 CL @02,@ CF01272 0004B8 A784 0087 005C6 13638 JE @ RF03481 . R2 is good = x'FF000000'. This should have found a literal at R3 plus x'58' of FF000000 as well but did not. Additional symptoms: Abend ADCA followed by ABEND AEY9 and the 0C4 in DFHDLIDP at offset x'4C0'. The region came down crashed with: DFHPC0409 Abends AEY9 and APCT have been issued while processing abend APCT for the same task, . After purging a task with the Mainview Task Kill feature, you receive a dump with symptom: DFHSM0002 A SEVERE ERROR (CODE X'0D07') HAS OCCURRED IN MODULE DFHSMMF. . The following exception trace entry is written: SM0002 SM 0D07 *EXC* Address_is_outside_DSA FREEMAIN The error occurs attempting to free address x00000000. dfhpd0001 pg0001 pc0409 akea DFHDB8109 DFHSM0002 SM0002 0D07
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users. * **************************************************************** * PROBLEM DESCRIPTION: Program check in DFHDLIDP's recovery * * routine. * **************************************************************** * RECOMMENDATION: * **************************************************************** A problem occurs in DFHDLIDP that causes its recovery routine DLIDPREC to be driven. Once in DLIDPREC, register 3 is used to reference static storage, but R3 is not set correctly and so DLIDPREC will abend. Key words: IMS DLI DL1
Problem conclusion
DFHDLIDP has been changed to store its static storage pointer into LIFO on entry. Routine DLIDPREC has been changed to restore R3 when this recovery routine is driven.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM53575
Reported component name
CICS TS Z/OS V4
Reported component ID
5655S9700
Reported release
700
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-12-05
Closed date
2012-01-24
Last modified date
2012-12-18
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK75704
Modules/Macros
DFHDLIDP
Fix information
Fixed component name
CICS TS Z/OS V4
Fixed component ID
5655S9700
Applicable component levels
R700 PSY UK75704
UP12/02/07 P F202
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
18 December 2012