IBM Support

PM12225: DFHMDF WITH DATA=BLOCK GENERATED WITH INCORRECT WORK AREA LENGTH AFTER PK57701. 10/05/24 PTF PECHANGE

A fix is available

Subscribe

You can track all active APARs for this component.

 

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 UK33109.                 *
    ****************************************************************
    * 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

  • UK33109
    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 AR500
    ++ APAR (AM12225).
    ++ VER (C150) FMID(HCI6500).
    ++ MACUPD (DFHMDF ) DISTLIB(ADFHMAC) SYSLIB(SDFHMAC)
       /* MODULE: DFHMDF --- TYPE: MACRO */.
    ./ CHANGE NAME=DFHMDF,SEQFLD=738
    .***          AIF   (NOT &OPTS(1)).MDFGGAR
                               DELETED BY APAR @BA12225 19390000
    .***          AIF   (T'&FLDNAME EQ 'O').MDFGGA
                               DELETED BY APAR @BA12225 19400000
    .*** &MWALI   SETA  (&MWALI+&GAP)       ADD GA
                               DELETED BY APAR @BA12225 19410000
    .*** .MDFGGAR ANOP                      DATA=B
                               DELETED BY APAR @BA12225 19420000
    .***          AGO   .MDFGGAQ
                               DELETED BY APAR @BA12225 19450000
    .*** .MDFGGAP ANOP                      DATA=B
                               DELETED BY APAR @BA12225 19460000
    .*** &GGAP    SETA  (&GAP+&GLENGTH+1)   ACCUM
                               DELETED BY APAR @BA12225 19470000
    .*** .MDFGGAQ ANOP         DELETED BY APAR @BA12225 19480000
             AIF   (NOT &OPTS(1)).MDFNBLK  DATA=BLOCK ?
                                               @BA12225 40516000
    &FLDOFF(&FLDCOUNT) SETA &FPOS+12  offset in ADS incl
                                     tioa pfx  @BA12225 40517000
             AGO   .MDFDBLK                    @BA12225 40518000
    .MDFNBLK ANOP ,                            @BA12225 40519000
    .MDFDBLK ANOP ,                            @BA12225 40525000
    .***          AIF   (T'&GRPNAME EQ 'O').MDFNG1
                               DELETED BY APAR @BA12225 45670000
    .***          AIF   (&NEWGRP).MDFNG1    IF NEW
                               DELETED BY APAR @BA12225 45680000
    .*** &MWALI   SETA  (&MWALI+&GLENGTH)   NO ATT
                               DELETED BY APAR @BA12225 45690000
    .***          AGO   .MDFIWLB            GO TO
                               DELETED BY APAR @BA12225 45700000
    .*** .MDFNG1  ANOP         DELETED BY APAR @BA12225 45710000
    &MWALI   SETA  (&FPOS+&GLENGTH+1)  UPDATE INPUT WORK
                                     AREA LEN  @BA12225 45720000
    ./ ENDUP
    

Comments

APAR Information

  • APAR number

    PM12225

  • Reported component name

    CICSTS V3 Z/OS

  • Reported component ID

    5655M1500

  • Reported release

    500

  • Status

    CLOSED PER

  • PE

    YesPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2010-04-14

  • 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:

    PM13185 PM14787 UK59005

Modules/Macros

  •    DFHMDF
    

Fix information

  • Fixed component name

    CICSTS V3 Z/OS

  • Fixed component ID

    5655M1500

Applicable component levels

  • R500 PSY UK59005

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

Document Information

Modified date:
02 August 2010