PH73335: Error at CEEEV004 + X'3ADDC' in CICS after ST R13,4(R1) in execution key 9 26/09/27 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• This APAR PE's the following August 2026 COBOL Runtime PTFs:
  z/OS V2.5: UO08821 (APAR: PH72394)
  z/OS V3.1: UO08822 (APAR: PH72394)
  z/OS V3.2: UO08823 (APAR: PH72394)
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running COBOL transactions          *
  *                 under CICS with the following PTFs applied   *
  *                 on z/OS 2.5, 3.1, or 3.2:                    *
  *                                                              *
  *                 PTF in error (PE):                           *
  *                 APAR: PH72394 (PTF:UO08821 for HLE77D0 2.5)  *
  *                 APAR: PH72394 (PTF:UO08822 for HLE77E0 3.1)  *
  *                 APAR: PH72394 (PTF:UO08823 for HLE77F0 3.2)  *
  *                                                              *
  *                 (COBOL Runtime August 2026 PTFs)             *
  ****************************************************************
  * PROBLEM DESCRIPTION: When COBOL transactions are run         *
  *                      under CICS where the STGPROT=YES        *
  *                      (YES is the default) system             *
  *                      initialization parameter is             *
  *                      specified, the transaction might abend  *
  *                      with the following symptom:             *
  *                                                              *
  *                      Execution key at Program Check/Abend: 9 *
  *                      Instruction Length: 4                   *
  *                      Interrupt Code: 0004                    *
  *                      ...                                     *
  *                      CICS Error Instruction Address:14BF5DDC *
  *                      Module CEEEV004 + X'3ADDC               *
  *                      (Entry: IGZCEV08 Statement:             *
  *                      Offset: +00034708)                      *
  *                                                              *
  *                      When the error instruction at 14BF5DDC  *
  *                      is displayed, it shows                  *
  *                      501D 0008  ST      R1,8(R13)            *
  *                                                              *
  *                      14BF5D90  -4C  ... *.........00..IGZ*   *
  *                      14BF5DA0  -3C  ... *SMFR 07/27/26 15*   *
  *                      14BF5DB0  -2C  ... *.39...}.........*   *
  *                      14BF5DC0  -1C  ... *.0.....H........*   *
  *                      14BF5DD0   -C  ... *.0......&J..    *   *
  *                           Module CEEEV004 + X'3ADDC'         *
  *                      14BF5DDC       ...                      *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  The COBOL Runtime attempts to stores a register value into
  key 8 storage while running under in key 9, resulting in
  a protection exception abend (S0C4 / PIC 0004).
  
  The abending instruction is as follows:
  ...
  50D1 0004      ST      R13,4(R1) // abending
  501D 0008      ST      R1,8(R13) // where CICS error points
  ...
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K COB0605T/K
  

Problem conclusion

• The COBOL Runtime logic has been corrected.
  

Temporary fix

Comments

APAR Information

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

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

Modules/Macros

• IGZBXITA IGZCCCHK IGZCER4  IGZCEV4  IGZCFREM IGZCGETI IGZCGETM
  IGZCJNI2 IGZCLOAD IGZGLUE  IGZLLIBV IGZQR004 IGZRIDT  IGZRTMON
  IGZSETRT IGZTRUE  IGZXAPI  IGZXCA31 IGZXCDA  IGZXD24  IGZXDMR
  IGZXJNI2 IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE
  IGZXLPKF IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7D0 PSY UO09745

     UP26/10/03 I 1000 {

• R7E0 PSY UO09746

     UP26/10/03 I 1000 {

• R7F0 PSY UO09747

     UP26/10/03 I 1000 {

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.