A fix is available
APAR status
Closed as new function.
Error description
Customer needs the ability for an application running on a Back End IMS in Shared Queued environment to determine the Front End IMSID, in order to make his Front End Switch ( to CICS via ISC ) processing work. This apar will enhance AIB INQY call to support this.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All IMS V10 Shared Queues using Front End * * Back End Switch * **************************************************************** * PROBLEM DESCRIPTION: Currently an application running on a * * Back End IMS in a Shared Queues * * environment, there is no mechanism to * * determine the Front End IMSID in order * * to make a Front End Switch. * **************************************************************** * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF * **************************************************************** A new DL/I INQY MSGINFO call is added to return information about the input message. This apar implements version 1 of the output format which returns only the imsid of the ims from which the message originated.
Problem conclusion
Temporary fix
Comments
DFSCPY00 - logic is added to check for the INQY subfunction code SUBFMSGI and route that call to DFSDLA50. DFSDLA00 - a test is added to encode the MSGINFO subfunction into SUBFMSGI and store it in the PST. DFSDLA50 - a routine is added for the DL/I INQY MSGINFO call. DFSINQY - is enhanced with a new DSECT to map the output of the DL/I INQY MSGINFO call. This DSECT is used by DFSDLA50. DFSLIE00 - a table entry is added for the MSGINFO subfunction code in the INQY subfunction code table. IDLI - a new subfunction code, SUBFMSGI, x'10', is added for the INQY MSGINFO call. Publications: The IMS Application Programming APIs Reference is changed to add information on the DL/I INQY MSGINFO call. Querying the Environment: INQY MSGINFO When the INQY call is issued with the MSGINFO subfunction, the application program obtains information regarding the current input message. The only valid PCB name that can be passed in AIBRSNM1 is IOPCBbbb . This output includes the version number and the output fields for the message information. The INQY MSGINFO call returns the response in the I/O area. Information Length Actual Explanation Returned in Bytes Value -------------------------------------------------------------- Version 4 1 Output response version 1 Number Origin 8 Provides the IMS identifier IMSID from which the input message originated Reserved 68 This field is reserved for for IMS future output expansion
APAR Information
APAR number
PK87173
Reported component name
IMS V10
Reported component ID
5635A0100
Reported release
010
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
YesSpecatt / New Function / Xsystem
Submitted date
2009-05-21
Closed date
2009-07-10
Last modified date
2010-01-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PK87174 UK48278
Modules/Macros
DFSCPY00 DFSDLA00 DFSDLA50 DFSINQY DFSLIE00 IDLI
SC18969901 |
Fix information
Fixed component name
IMS V10
Fixed component ID
5635A0100
Applicable component levels
R010 PSY UK48278
UP09/07/17 P F907
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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"10.1","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SSCVRBJ","label":"System Services"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"10.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
04 January 2010