A fix is available
APAR status
Closed as program error.
Error description
We have a batch EXCI program which when run gets : DFHEX0001 An abend (code ---/4036) has occurred in module DFHXCBAM . The ABENDU4036 ABEND4036 dump is issued by LE because its recovery ( for an 0C4) is driven in 64 bit and the batch program/LE is running 31 bit. To stop LE's recovery from being driven we need to turn off its SPIE to allow the SLIP to match on the 0C4 ( SPIE would get control before SLIP) The following SLIP was set : 1. Could you set this 0C4 SLIP please with TRAP(ON,NOSPIE) for the batch job ? SLIP SET,ID=1202,COMP=0C4,A=SVCD,JOBLIST=(CICS region1,CICS region2),JOBNAME=batchjobn, SDATA=(RGN,CSA,SQA,LPA,LSQA,SWA,PSA, ALLNUC,TRT,GRSQ,SUM),END 2/. Recreate the problem with batch LE runtime TRAP(ON,NOSPIE) Please FTP the SLIP 0C4 dump, the batch and CICS messages logs. . SLIP dump revealed the following 0C4: The MVS systrace shows a program check PGM 38 in DFHXCCR because R13 is not valid in 64 bit form The PGM 38 occurs in DFHXCCR as it tries to save REGS 14,12 from R13. R13 is not a valid 64 bit address. DFHXCCR has been called by DFHXCBAM and R13 is not explicitly set up as a 31 bit address . Program check PGM 38 PGM 038 00000000_1911AB48 00060038 1865E530 PSW points into DFHXCCR UI78441 + X'120' Machine Instruction . . . . : EBECD0080024 STMG R14,R12,8(R13) . General Purpose Registers (AMODE: 64 31 24 , Bytes: Dec Hex ): R0: 0_18002D30 (6,374,096 bytes of storage addressable R1: 0_194014B0 (2,896 bytes of storage addressable) R2: 0_000A63E8 (314,392 bytes of storage addressable) R3: 0_991030F0 (Module DFHXCEIX + X'30F0') R4: 0_191040EF (Module DFHXCEIX + X'40EF') R5: F0F0F0_191050EE (Storage invalid) R6: 100_18002498 (Storage invalid) R7: 0_191149E0 (Module DFHXCPRX + X'C9E0') R8: 0_992FC000 (Module DFHMET4E + X'0') R9: 0_00000CC0 (Storage invalid) R10: 0_19105DD0 (Module DFHXCEIX + X'5DD0') R11: 0_19401000 (4,096 bytes of storage addressable) R12: 0_000A2C80 (328,576 bytes of storage addressable) R13: 1865E530_19401000 (Storage invalid)31 bit is valid R14: 1865E638_991054AE (Storage invalid) 31 bit points back to DFHXCBAM R15: 0_1911AA28 DFHXCCR
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS Users. * **************************************************************** * PROBLEM DESCRIPTION: A batch EXCI program fails with abend * * DFHEX0001 (code ---/4036) in module * * DFHXCBAM. * * EXEC CICS PUT CONTANIER was being used. * **************************************************************** DFHXCBAM calls DFHXCCR expecting it to use 31-bit addresses to save its registers, but DFHXCCR treats the save area as 64-bit addresses. The R13 passed contained an invalid 64-bit address. This caused an 0C4 38 in DFHXCPRX CSECT DFHXCCR at offset X'120' as it tries to save registers.
Problem conclusion
DFHXCCR has been changed to ensure a clean 31-bit address is in register 13.
Temporary fix
Comments
APAR Information
APAR number
PH51934
Reported component name
CICS TS Z/OS V6
Reported component ID
5655YA100
Reported release
400
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-01-16
Closed date
2023-02-01
Last modified date
2023-03-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI90356
Modules/Macros
DFHXCCR
Fix information
Fixed component name
CICS TS Z/OS V6
Fixed component ID
5655YA100
Applicable component levels
R400 PSY UI90356
UP23/03/01 P F302
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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
01 March 2023