PK07670: MODIFICATION TO DFHEIENT TO SWITCH FROM USING AH (DFHEI4K) INSTRUCTIONS TO AHI INSTRUCTIONS.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• There is a need to modify DFHEIENT to switch from using AH
  (DFHEI4K)instructions to start using AHI instructions.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All                                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHEIENT generates code which fails to  *
  *                      assemble when referencing DFHEI4K.      *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  An assembler application coded multiple DATAREG values on its
  DFHEIENT entry. It also specified CODEREG=0, meaning that no
  code base registers are required, and that the program will
  use relative addressing instead.
    The expansion of DFHEIENT generates code to set up
  addressability for any code registers or data registers. It
  does this by adding a value of x'1000' bytes onto the address
  of the first register used, continuing in this way until
  all the assigned registers have their base addresses set up.
  DFHEI4K is declared as a constant value of x'1000', and AH
  instructions are used to increment the base addresses
  for each 4096 byte register address range.
    If no base register has been defined, the DC for DFHEI4K
  cannot be resolved by the assembler when it attempts to
  assemble the AH instruction for the second (or subsequent)
  data registers. This gives assembly error ASMA034E.
  

Problem conclusion

• DFHEIENT has been modified to use AHI instructions with an
  immediate value of d'4096' (x'1000') in order to set up the
  basing of multiple registers, provided that no codereg value
  was specified. In this circumstance it means DFHEI4K is no
  longer required. However, in case application logic is
  making use of this constant value provided by the DFHEIENT
  expansion, the define constant for it cannot be removed from
  the generated code.
  

Temporary fix

• CICS AR400
  ++ APAR (AK07670).
  ++ VER (C150) FMID(HCI6400).
  ++ MACUPD (DFHEIENT) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
     /* MODULE: DFHEIENT --- TYPE: MACRO */.
  ./ CHANGE NAME=DFHEIENT,SEQFLD=738
           AIF   (&NCODE EQ 0).DATAR2A       @BA07670 88700000
  .DATAR2A ANOP                              @BA07670 89270000
           AHI   &REGDATA(&N1),4096          @BA07670 89340000
           AGO   .DATAR2                     @BA07670 89410000
  ./ ENDUP
  

Comments

APAR Information

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

  PK06929

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

  UK06234

Modules/Macros

•    DFHEIENT
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK06234

     UP05/08/22 P F508

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.