A fix is available
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
SC33165804 | SC33165105 |
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"1.1.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
27 March 2014