A fix is available
APAR status
Closed as program error.
Error description
After PK70901, an EXEC CICS ASSIGN INVOKINGPROGRAM () command in the MQ crossing exit, CSQCAPX returns blanks rather than the name of the program that issued the MQ API call. PK70901 changed DFHMQTRU to invoke CSQCAPX with a a DFHPGLU LINK_URM macro rather than an EXEC CICS LINK command. The blanks are documented behavior for the ASSIGN INVOKINGPROG command when the program is called as a URM (user replaceable module) from a TRUE. . Additional Symptom(s) Search Keyword(s): KIXREVDWZ
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All users with PK70901 applied * **************************************************************** * PROBLEM DESCRIPTION: The EXEC CICS ASSIGN INVOKINGPROG * * command issued from CSQCAPX will return * * blanks rather than the name of the * * invoking program. * **************************************************************** * RECOMMENDATION: * **************************************************************** Since PK70901, CSQCAPX is called from DFHMQTRU as a URM and consequently, the EXEC CICS ASSIGN INVOKINGPROG command returns blanks rather than the invoking program name.
Problem conclusion
DFHMQTRU has been changed to issue a DFHPGISI INQUIRE CURRENT PROGRAM call, just before it calls CSQCAPX, and the result of the DFHPGISI call is placed in a new field in the parameter list passed across to CSQCAPX. Additionally CSQCAPX has been changed to accomodate this new parameter list field. : CICS TS 3.2 Information Center - Section CICS integration with WebSphere MQ > The CICS-WebSphere MQ adapter > Customizing the CICS-WebSphere MQ adapter > The CICS-WebSphere MQ API-crossing exit > Writing your own CICS-WebSphere MQ API crossing exit program -> Considerations when writing your own CICS-MQ API crossing exit program has been altered so that the following bullet point is inserted between bullet position 7 and 8. *Parameter - MQXP_EXITCALLPROG - is included in the parmlist which is passed to the module via the commarea, and this contains the name of the program which invoked the call to the module. Because CSQCAPX is invoked as a User Replaceable Module (URM) an EXEC CICS ASSIGN INVOKINGPROG command will return blanks. The parameter MQXP_EXITCALLPROG can be used instead, as it will contain the name of the invoking program, identical in format to the output received from an EXEC CICS ASSIGN INVOKINGPROG command. This parameter is available if the parameter MXQP_VERISON has a value of '2'.
Temporary fix
********* * HIPER * ********* FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM12224
Reported component name
CICSTS V3 Z/OS
Reported component ID
5655M1500
Reported release
500
Status
CLOSED PER
PE
NoPE
HIPER
YesHIPER
Special Attention
NoSpecatt
Submitted date
2010-04-14
Closed date
2010-08-26
Last modified date
2010-09-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PM15381 UK60039
Modules/Macros
CSQCAPX DFHMQATB DFHMQTRU DFHMQXPB
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R500 PSY UK60039
UP10/09/01 P F008
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:
01 September 2010