PK76246: ABEND CODE=U0102 ABENDU0200 IN RESTART IMS-JAVA JBP JOB.

APAR status

• Closed as program error.

Error description

• During the restart of JBP ABENDU0102 occurs in module DFSZSR10
  with R2=E2D91004 indicating that module DFSCPY00 has returned a
  pseudoabend 100000C8 in R15.
  The ABEND U0200 ( hex C8 ) occurred because the total length of
  segment ( EPSTTSL ) exceeded the AIB output area lenght
  ( AIBOALEN ).
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: IMS 910 customers using the AIB interface    *
  *                 for XRST in BMP regions.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: XRST calls result in ABENDU0102 in      *
  *                      module DFSZSR10 with R2=E2D91004        *
  *                      indicating that module DFSCPY00 has     *
  *                      returned a pseudoabend code in R15.     *
  *                      R15=100000C8   (decimal 200)            *
  *                                                              *
  *                      Pseudo abendU0200 reads:                *
  *                      A GET type function was issued using    *
  *                      the AIB interface that was expecting    *
  *                      data to be returned in the I/O area.    *
  *                      However, the length of the I/O area     *
  *                      was too small to receive the data.      *
  *                      If the abend occurred in a Java         *
  *                      dependent region (that is, JBP or JMP), *
  *                      this could be a storage related issue.  *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  Although the XRST call no longer uses the length value for the
  I/O area, it still must be specified to keep the DL/I call
  format consistent. Any length value can be specified.
  
  For an XRST call, the user's I/O area is used to hold the
  XRST from which to restart the application program. The
  maximum length of 14 (X'E') bytes is all that is needed
  and internally the code will check the I/O area contents
  using the 14 byte length required for its physical size.
  
  The problem surfaces when the XRST call looks for type18 log
  records from which to restart, and the subsequent log reads to
  reposition the databases. Here, the code will getmain a large
  buffer to hold the log records. Repetitive calls will be issued
  internally to invoke DFSCPY00 to read the log records.
  
  For AIB callers, the AIBOALEN field is not updated internally
  to account for the getmained buffer size. When DFSCPY00
  attempts to move the log records into the internal I/O area,
  the AIBOALEN field is checked to determine if there is enough
  room to do so. Unless the customer has specified a very large
  value, DFSCPY00 sets up a pseudoabendU0200. DFSZSR10 turns
  this into an ABENDU0102 with R2=E2D91004 R15=100000C8.
  
  Furthermore, customers using the AIB interface in a Java BMP
  type of region ( JBP region ) issuing the XRST call will
  not be able to set any value in AIBOALEN that will work.
  The Java middleware sets a length value of x'E' into AIBOALEN
  regardless of what the application has set originally.
  

Problem conclusion

• AIDS: RIDS/SYS RIDS/CNTRL SYS CNTRL
   GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  Code has been altered in DFSZSR10 to set the AIBOALEN field to
  the size of the internally getmained area prior to calling
  DFSCPY00 for log reads during XRST processing. AIBOALEN is then
  reestablished upon returning from DFSCPY00.
  

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:

  PK84949 UK46101

Modules/Macros

• DFSZSR10
  

Fix information

• Fixed component name

  IMS V9

• Fixed component ID

  5655J3800

Applicable component levels

• R900 PSY UK46101

     UP09/05/01 P F904