IBM Support

PK57450: LM'S IN DFHKERN NEED TO BE CHANGED TO SAVE SOME ADDRESSABLITY, AND THE REMOVAL OF THE NO-LONGER-REFERENCED "DS 0F" TAGS

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as unreproducible.

Error description

  • DFHKERN is generating X'E2 additional bytes of code for eacg
    generating X'E2'
    additional bytes of code for each XPI call (which consumes an
    extra 5.5%
    of a basereg), it practically forces a conversion to relative
    branching
    to conserve addressability. Therefore, to have coded the
    additional
    DFHKERN instructions in a manner that requires code
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All.                                         *
    ****************************************************************
    * PROBLEM DESCRIPTION: When compiling a GLUE which includes    *
    *                      XPI commands, message ASMA034E may be   *
    *                      issued.                                 *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    When compiling a Global User Exit (GLUE) which includes Exit
    Programming Interface (XPI) commands the assembler may issue
    message ASMA034E because the GLUE has exceeded its current
    addressable range. Necessary changes made to the DFHKERN macro
    have increased the number of lines included in the expansion of
    XPI commands, which results in the assembler issuing the
    message.
    
    Keyword: msgASMA034E ASMA435I msgASMA435I Task Related TRUE
    

Problem conclusion

Temporary fix

  • CICS AR400
    ++ APAR (AK57450).
    ++ VER (C150) FMID(HCI6400).
    ++ MACUPD (DFHKERN ) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
       /* MODULE: DFHKERN --- TYPE: MACRO */.
    ./ CHANGE NAME=DFHKERN,SEQFLD=738
             L     RF,=A((DFHDTA_RUNNING_ABTERM_ALLOWED*167
                                       77216)+(DFHDTA_OX24211300
                   K*65536))                  @BA57450C 24211320
             L     R0,=A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED
                                       *16777216)+(DFHDX24211340
                   TA_OK*65536))              @BA57450A 24211360
    *ST030008&SYSNDX    DS 0F                           24214800
    *        DC    A((DFHDTA_RUNNING_ABTERM_ALLOWED*167 24214900
                   536))                      @BA57450D 24215000
    *        DC    A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED 24215100
                   K*65536))                  @BA57450D 24215200
             L     RF,=A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED
                                       *16777216)+(DFHDX24216200
                   TA_OK*65536))              @BA57450C 24216220
             L     R0,=A((DFHDTA_RUNNING_ABTERM_ALLOWED*167
                                       77216)+(DFHDTA_OX24216240
                   K*65536))                  @BA57450A 24216260
    *ST5C0008&SYSNDX    DS 0F                           24217400
    *        DC    A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED 24217500
                   K*65536))                  @BA57450D 24217600
    *        DC    A((DFHDTA_RUNNING_ABTERM_ALLOWED*167 24217700
                   536))                      @BA57450D 24217800
             L     RF,=A((DFHDTA_RUNNING_ABTERM_ALLOWED*167
                                       77216)+(DFHDTA_OX24311300
                   K*65536))                  @BA57450C 24311320
             L     R0,=A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED
                                       *16777216)+(DFHDX24311340
                   TA_OK*65536))              @BA57450A 24311360
    *ST030008&SYSNDX    DS 0F                           24314800
    *        DC    A((DFHDTA_RUNNING_ABTERM_ALLOWED*167 24314900
                   536))                      @BA57450D 24315000
    *        DC    A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED 24315100
                   K*65536))                  @BA57450D 24315200
             L     RF,=A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED
                                       *16777216)+(DFHDX24316200
                   TA_OK*65536))              @BA57450C 24316220
             L     R0,=A((DFHDTA_RUNNING_ABTERM_ALLOWED*167
                                       77216)+(DFHDTA_OX24316240
                   K*65536))                  @BA57450A 24316260
    *ST5C0008&SYSNDX    DS 0F                           24317400
    *        DC    A((DFHDTA_RUNNING_ABTERM_NOT_ALLOWED 24317500
                   K*65536))                  @BA57450D 24317600
    *        DC    A((DFHDTA_RUNNING_ABTERM_ALLOWED*167 24317700
                   536))                      @BA57450D 24317800
    ./ ENDUP
    

Comments

  • The DFHKERN macro has been changed to replace the inline
    constants used to test the task state, with literals of the same
    setting, so reducing the size of the generated code.
    

APAR Information

  • APAR number

    PK57450

  • Reported component name

    CICSTS V3 Z/OS

  • Reported component ID

    5655M1500

  • Reported release

    400

  • Status

    CLOSED UR3

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2007-12-05

  • Closed date

    2007-12-13

  • Last modified date

    2008-01-03

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

    PK53680

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

    UK32278

Modules/Macros

  •    DFHKERN
    

Fix information

  • Fixed component name

    CICSTS V3 Z/OS

  • Fixed component ID

    5655M1500

Applicable component levels

  • R400 PSY UK32278

       UP07/12/19 P F712

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":"3.1","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":"3.1","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
03 January 2008