PM77121: APPLICATION AIB CALL UNEXPECTEDLY RECEIVES AIB RETURN CODE OF 104 AND AN AIB REASON OF 228.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When processing an AIB application call, if field AIBLEN is set
  to zero, an AIB return code of 104 / AIB reason code 228 is
  unexpectedly received.
  This is causing legacy user applications, which have always
  passed a zero AIBLEN value with success, to now fail.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V10 Full Function (i.e. non-Fastpath)*
  *                 database users with applications that make   *
  *                 AIB calls.                                   *
  *                                                              *
  *                 For IMS V10 Fastpath database users that     *
  *                 have applications that make AIB calls, the   *
  *                 solution is provided in IMS V10 APAR PI22951.*
  ****************************************************************
  * PROBLEM DESCRIPTION: Application AIB call receives AIB       *
  *                      return code 104 and reason code 228     *
  *                      when AIBLEN is set to zero.             *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  During application AIB call proocessing, module DFSLIE20 checks
  whether the value in AIBLEN is zero.  If it is, the call fails
  with a AIB return code of 104 and reason code of 228.  Some
  legacy user applications may fail because they expect the call
  to be accepted in this situation, and not to see these AIB
  return and reason codes.
  

Problem conclusion

• GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  The check for AIBLEN of zero is removed from DFSLIE20.  This
  checking is instead done in DFSCPY00.  This prevents the check
  from being applied in situations in which it is not needed and
  in which some customer applications expect the call to be
  accepted.
  
  The new check is added to DFSCPY00 just prior to the code that
  copies the user's AIB to key 7 storage.  If AIBLEN is zero, the
  minimum AIB length of 128 bytes is used.  This value is placed
  in the AIBLEN field of both the key 7 and key 8 AIBs.  The
  request is otherwise processed normally instead of being
  rejected.  The check in DFSCPY00 prevents problems that may
  result from performing this copy when AIBLEN is zero.
  

Temporary fix

Comments

APAR Information

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

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

  PM77123 UK91205

Modules/Macros

• DFSCPY00 DFSLIE20
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R010 PSY UK91205

     UP13/02/20 P F302

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.