A fix is available
APAR status
Closed as program error.
Error description
Using the MQ API crossing exit CSQCAPX (In CICS 4.1 ) to make an MQPUT call within that exit, then return control to CICS, the MQ TRUE exit abends at location 000002. Message DFHAP0707 CICSD An abend (code 0C1/AKEA) has occurred in task related user exit program DFHMQTRU. The problem is that all the MQXCC response codes (with the exception of MQXCC_OK which equals 0) are negative values (ie MQXCC_SUPPRESS_FUNCTION equals -1; MQXCC_SKIP_FUNCTION equals -2 and so on), and for some reason it appears that DFHEPC can't handle these if any are set upon return from CSQCAPX. Additional Keywords: ExitResponse , abend0c1 , S0C1 , MQPUT , MQTRUE
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users with UK49875 applied. * **************************************************************** * PROBLEM DESCRIPTION: A CICS/MQ crossing exit program * * (CSQCAPX) which contains an * * ExitResponse value of * * MQXCC_SKIP_FUNCTION produces an S0C1 * * abend in DFHMQTRU. * **************************************************************** * RECOMMENDATION: * **************************************************************** A CICS/MQ crossing exit program (CSQCAPX) returns an ExitResponse of MQXCC_SKIP_FUNCTION and the working storage in DFHMQTRU is addressed incorrectly, leading to an S0C1 abend. Additional Keywords: abend0c1 abends0c1
Problem conclusion
UK49875 UK52671 UK52361 UK55896 DFHMQTRU has been modified such that, within proc execute_api_exit_mqcall_api_exit pointer dfhmqlot.pTrueAstg, which is altered prior to calling CSQCAPX, is reset after the second call to CSQCAPX only if that call is actually made.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM42108
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
2011-06-23
Closed date
2011-09-12
Last modified date
2011-10-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK71764
Modules/Macros
DFHMQTRU
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R500 PSY UK71764
UP11/09/22 P F109
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:
03 October 2011