IBM Support

PM90076: ENABLE DFHMSD TYPE=FINAL TO AVOID PUNCHING A LIBR /+ STATEMENT

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Modify DFHMSD to optionally avoid punching a /+ card at the end
    of the library member for TYPE=DSECT or ADSECT when using:
    
    * $$ PUN MEM=n.t,S=l.s<,REPLACE=YES>
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All CICS users running on z/VSE 5.1 or       *
    *                 later releases.                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: Provide options to stop DFHMSD punching *
    *                      a /+ statement when creating a BMS      *
    *                      symbolic description map.               *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    When a BMS symbolic descriptor map is created by using DFHMSD
    TYPE=DSECT, // OPTION SYSPARM='DSECT' or // OPTION
    SYSPARM='ADSECT', the macro assumes that LIBR will be used to
    catalog the sublibrary member, and punches a LIBR /+ delimiter
    statement at the end of the map.
    
    z/VSE 5.1 introduced a new format of POWER * $$ PUN statement
    that allows punched output to be written directly into a z/VSE
    sublibrary member. The format is:
    
    * $$ PUN MEM=name.type,S=library.sublibrary<,REPLACE=YES>
    
    When this format of * $$ PUN is used, the sublibrary member
    will now include the /+ statement, and will result in a
    compilation error when it is used.
    

Problem conclusion

  • DFHMSD and DFHMDI have been changed to accept additional
    SYSPARM options to indicate that no /+ delimiter must be
    punched:
    
    // OPTION SYSPARM='DSECTND'  instead of SYSPARM='DSECT'
    // OPTION SYSPARM='ADSECTND' instead of SYSPARM='ADSECT'
    
    The CICS TS for VSE/ESA Application Programming Reference
    SC33-1658-04 has been changed in Appendix K DFHMSD page 432.
    
    TYPE
       specifies the type of map to be generated using the
       definition. Both types of map must be generated before the
       mapset can be used by an application program. If aligned
       symbolic description maps are required, you should ensure
       that you specify SYSPARM='ADSECT' and SYSPARM='AMAP' when
       you assemble the symbolic and physical maps respectively.
    
       DSECT     specifies that a symbolic description map is to
                 be generated. Symbolic description maps must be
                 copied into the source program before it is
                 translated and compiled.
    
       MAP       specifies that a physical map is to be generated.
                 Physical maps must be assembled or compiled,
                 link-edited, and cataloged in the CICS program
                 library before an application program can use
                 them.
    
       SYSPARM='ADSECTND' and SYSPARM='DSECTND' are alternatives
       that function like ADSECT and DSECT, except that no /+
       delimiter for LIBR is produced. This can be used with the
       POWER * $$ PUN MEM=name.type,S=library.sublibrary to output
       the symbolic description map directly into the named
       sublibrary member.
    
    The CICS TS for VSE/ESA System Definition Guide SC33-1651-05
    has been changed.
    
    Chapter 3 page 16.
    
    The two types of mapset can be distinguished by either:
     . The TYPE operand of the DFHMSD macro
     . The SYSPARM parameter in the // OPTION statement
       (SYSPARM='MAP', SYSPARM='DSECT' or SYSPARM='DSECTND').
       If you use the SYSPARM parameter, you must also code
       TYPE=&SYSPARM.
    
    The use of SYSPARM allows you to generate both the physical
    mapset and the symbolic description mapset from the same
    unchanged set of BMS mapset definition macros.
    
    If you are using * $$ PUN MEM=name.type,S=lib.slib to output
    the symbolic description mapset directly into the named
    sublibrary member, you should use SYSPARM='DSECTND' to request
    that no /+ delimiter is added to the end of that member.
    
    Chapter 3 page 17.
    
    Alternatively, you can specify both the mapset type and
    alignment by the SYSPARM parameter. SYSPARM='AMAP' generates an
    aligned physical mapset, and SYSPARM='ADSECT' generates an
    aligned symbolic description mapset.
    
    If you are using * $$ PUN MEM=name.type,S=lib.slib to output
    the symbolic description mapset directly into the named
    sublibrary member, you should use SYSPARM='ADSECTND' to request
    that no /+ delimiter is added to the end of that member.
    

Temporary fix

  • FIX AVAILABLE BY PTF ONLY
    

Comments

APAR Information

  • APAR number

    PM90076

  • Reported component name

    CICSTS FOR VSE

  • Reported component ID

    564805400

  • Reported release

    B0P

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2013-05-30

  • Closed date

    2013-07-17

  • Last modified date

    2014-03-27

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

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

    UK95962

Modules/Macros

  •    DFHMDI   DFHMSD
    

Publications Referenced
SC33165804SC33165105   

Fix information

  • Fixed component name

    CICSTS FOR VSE

  • Fixed component ID

    564805400

Applicable component levels

  • RB0P PSY UK95962

       UP13/07/19 P E520

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":"BU011","label":"Systems - zSystems software"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"1.1.1","Edition":""}]

Document Information

Modified date:
27 March 2014