PH55157: DFHEX0001 AN ABEND (CODE ---/4036) HAS OCCURRED IN MODULE DFHXCBAM. 0C4 IN DFHXCCR.

Obtain the fix for this APAR.

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 CONTAINER 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 is sysrouted FROM one or more of the following:

  PH50719

• APAR is sysrouted TO one or more of the following:

  UI92369

Modules/Macros

• DFHXCCR
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R200 PSY UI92369

     UP23/06/23 P F306

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.