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

Obtain the fix for this APAR.

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 is sysrouted FROM one or more of the following:

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

  UK95962

Modules/Macros

•    DFHMDI   DFHMSD
  

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.