IBM Support

PM12224: ASSIGN INVOKINGPROG() COMMAND IN CSQCAPX RETURNS BLANKS

A fix is available

Subscribe

You can track all active APARs for this component.

 

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