A fix is available
APAR status
Closed as program error.
Error description
When generating a BMS map with DATA=BLOCK and APAR PK57701 applied, 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 by PK57701. 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 with UK33108. * **************************************************************** * 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
UK33108 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 AR400 ++ APAR (AM14787). ++ VER (C150) FMID(HCI6400). ++ MACUPD (DFHMDF ) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC) /* MODULE: DFHMDF --- TYPE: MACRO */. ./ CHANGE NAME=DFHMDF,SEQFLD=738 .*** AIF (NOT &OPTS(1)).MDFGGAR DELETED BY APAR @BA14787 19390000 .*** AIF (T'&FLDNAME EQ 'O').MDFGGA DELETED BY APAR @BA14787 19400000 .*** &MWALI SETA (&MWALI+&GAP) ADD GA DELETED BY APAR @BA14787 19410000 .*** .MDFGGAR ANOP DATA=B DELETED BY APAR @BA14787 19420000 .*** AGO .MDFGGAQ DELETED BY APAR @BA14787 19450000 .*** .MDFGGAP ANOP DATA=B DELETED BY APAR @BA14787 19460000 .*** &GGAP SETA (&GAP+&GLENGTH+1) ACCUM DELETED BY APAR @BA14787 19470000 .*** .MDFGGAQ ANOP DELETED BY APAR @BA14787 19480000 AIF (NOT &OPTS(1)).MDFNBLK DATA=BLOCK ? @BA14787 40516000 &FLDOFF(&FLDCOUNT) SETA &FPOS+12 offset in ADS incl tioa pfx @BA14787 40517000 AGO .MDFDBLK @BA14787 40518000 .MDFNBLK ANOP , @BA14787 40519000 .MDFDBLK ANOP , @BA14787 40525000 .*** AIF (T'&GRPNAME EQ 'O').MDFNG1 DELETED BY APAR @BA14787 45670000 .*** AIF (&NEWGRP).MDFNG1 IF NEW DELETED BY APAR @BA14787 45680000 .*** &MWALI SETA (&MWALI+&GLENGTH) NO ATT DELETED BY APAR @BA14787 45690000 .*** AGO .MDFIWLB GO TO DELETED BY APAR @BA14787 45700000 .*** .MDFNG1 ANOP DELETED BY APAR @BA14787 45710000 &MWALI SETA (&FPOS+&GLENGTH+1) UPDATE INPUT WORK AREA LEN @BA14787 45720000 ./ ENDUP
Comments
APAR Information
APAR number
PM14787
Reported component name
CICSTS V3 Z/OS
Reported component ID
5655M1500
Reported release
400
Status
CLOSED PER
PE
YesPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-05-19
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:
UK58961
Modules/Macros
DFHMDF
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R400 PSY UK58961
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":"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:
02 August 2010