A fix is available
APAR status
Closed as program error.
Error description
When generating a BMS map with DATA=BLOCK , there are additional bytes that are passed to the program when the map is read. When the map is compiled with DATA=FIELD, the extra bytes are not there. The problem is caused by the changes made to DFHMDF. The field &MWALI (input work area length) is now being calculated based on the last value of &MWALI, where as before it was being calculated from &FPOS (field position. Additional Symptom(s) Search Keyword(s): KIXREVSWM
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS Users. * **************************************************************** * PROBLEM DESCRIPTION: EXEC CICS RECEIVE MAP INTO corrupts * * storage beyond the INTO area when * * using DATA=BLOCK. * **************************************************************** * RECOMMENDATION: * **************************************************************** When executing EXEC CICS RECEIVE MAP INTO, CICS uses an incorrect length when clearing the area specified on the INTO parameter. The incorrect length is obtained from within the map header in field BMSMSI. It is generated when the map is compiled and is the accumulation of the lengths of the fields plus the lengths of any gaps between the fields. PK57701 changed the calculation of the offsets of fields within an ADSD for maps defined with DATA=BLOCK, but it used the same macro variable as the one used to calculate the length. This variable is initialised to 7 and so the map length within the header ends up 7 longer than the actual map length. This leads to corruption of storage beyond the INTO data area when the incorrect length is used to manipulate the map. Additional keywords: &MWALI ADSD-STRUCTURE-LENGTH ADSD_STRUCTURE_LENGTH
Problem conclusion
DFHMDF has been changed so that maps defined with DATA=BLOCK will set the offset of each field within the ADSD to be the field position plus 12 (for the TIOA prefix). This replaces the code that used the variable that accumulated the map length and so the final map length is correct.
Temporary fix
CICS AR600 ++ APAR (AM13185). ++ VER (C150) FMID(HCI6600). ++ MACUPD (DFHMDF ) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC) /* MODULE: DFHMDF --- TYPE: MACRO */. ./ CHANGE NAME=DFHMDF,SEQFLD=738 .*** AIF (NOT &OPTS(1)).MDFGGAR DELETED BY APAR @BA13185 19390000 .*** AIF (T'&FLDNAME EQ 'O').MDFGGA DELETED BY APAR @BA13185 19400000 .*** &MWALI SETA (&MWALI+&GAP) ADD GA DELETED BY APAR @BA13185 19410000 .*** .MDFGGAR ANOP DATA=B DELETED BY APAR @BA13185 19420000 .*** AGO .MDFGGAQ DELETED BY APAR @BA13185 19450000 .*** .MDFGGAP ANOP DATA=B DELETED BY APAR @BA13185 19460000 .*** &GGAP SETA (&GAP+&GLENGTH+1) ACCUM DELETED BY APAR @BA13185 19470000 .*** .MDFGGAQ ANOP DELETED BY APAR @BA13185 19480000 AIF (NOT &OPTS(1)).MDFNBLK DATA=BLOCK ? @BA13185 40516000 &FLDOFF(&FLDCOUNT) SETA &FPOS+12 offset in ADS incl tioa pfx @BA13185 40517000 AGO .MDFDBLK @BA13185 40518000 .MDFNBLK ANOP , @BA13185 40519000 .MDFDBLK ANOP , @BA13185 40525000 .*** AIF (T'&GRPNAME EQ 'O').MDFNG1 DELETED BY APAR @BA13185 45670000 .*** AIF (&NEWGRP).MDFNG1 IF NEW DELETED BY APAR @BA13185 45680000 .*** &MWALI SETA (&MWALI+&GLENGTH) NO ATT DELETED BY APAR @BA13185 45690000 .*** AGO .MDFIWLB GO TO DELETED BY APAR @BA13185 45700000 .*** .MDFNG1 ANOP DELETED BY APAR @BA13185 45710000 &MWALI SETA (&FPOS+&GLENGTH+1) UPDATE INPUT WORK AREA LEN @BA13185 45720000 ./ ENDUP
Comments
APAR Information
APAR number
PM13185
Reported component name
CICS TS Z/OS V4
Reported component ID
5655S9700
Reported release
600
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-04-28
Closed date
2010-07-22
Last modified date
2010-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK58959
Modules/Macros
DFHMDF
Fix information
Fixed component name
CICS TS Z/OS V4
Fixed component ID
5655S9700
Applicable component levels
R600 PSY UK58959
UP10/07/24 P F007
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":"4.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":"4.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 August 2010