A fix is available
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