PK78022: CUSTOMER NEEDS ABILITY TO DETERMINE FE ( ORIGIN ) IMSID IN SQ ENVIRONMENT TO SUPPORT FES ( FRONTEND SWITCH ) PROCESSING

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 V9 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      *
  ****************************************************************
  DCR KZ00054
  -----------
  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 Transaction Manager and
  IMS Application Programming: Database Manager books are
  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 is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  PK87173 UK47041

Modules/Macros

• DFSCPY00 DFSDLA00 DFSDLA50 DFSINQY  DFSLIE00
  IDLI
  

Fix information

• Fixed component name

  IMS V9

• Fixed component ID

  5655J3800

Applicable component levels

• R900 PSY UK47041

     UP09/06/05 P F906