PQ37955: DBP FAILS TO HANDLE VSAM RECORDS IF RBA GT X'7FFFFFFF'

APAR status

• Closed as program error.

Error description

• DBP fails to back out a record with a RBA greater than 7FFFFFFF
  VSAM RC 0820 "no record at specified RBA"
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Exit XDBFERR is not driven for all      *
  *                      records when attempting to backout      *
  *                      writes to a large ESDS dataset.         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  Prior to the call to VSAM to add an ESDS record, the add is
  logged using the RBA value where the record is expected to be
  written. However, if a record cannot be added to the end of a
  CI then the record will be added to the start of the next CI.
  During backout, DBP anticipates a rc0820 (no record at specified
  RBA) and recalculates the RBA to be at the start of the next CI.
  In this case the logged RBA was greater than x'80000000' and was
  treated as a negative number. This caused DBP to incorrectly
  recalculate the RBA value of the start of the next CI, and
  another rc0820 was returned. DBP assumed the add had been logged
  but the transaction had failed before the call to VSAM, and so
  the error was ignored.
  

Problem conclusion

• DFHDBP has been amended to correctly handle logged RBA
  values of x'80000000' or greater.
  

Temporary fix

• CICS/VSE AR14V AR14X
  AR14X FIX AVAILABLE BY PTF ONLY
  // JOB PQ37955
  // EXEC MSHP,SIZE=600K
   CORRECT 5686-02-601 : PQ37955
     /* AR14V     NO APAR PREREQS */
     /* MODULE: DFHDBP --- TYPE: COPY */
   AFFECTS MACRO = DFHDBP   SUBLIB = A
   REPLACE 557600:558400 /*          ICM   14,15, */
           ICM   15,15,DBRCID        RBA IN REG15
                                             @BA37955 55760000
           SR    14,14               CLEAR 14 FOR
                              DIVIDE         @BA37955 55840000
  /$
  /*
  /&
  

Comments

APAR Information

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

  PQ29289

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

  UQ48264 018PC4Ÿ 018PC4Ÿ UQ48278 018PC4Ÿ 018PC4Ÿ 018PC4Ÿ

Modules/Macros

•    DFHDBP   DFHDBP1$ DFHDBP2$
  

Fix information

• Fixed component name

  CICS/VSE

• Fixed component ID

  568602601

Applicable component levels

• R14V PSY UQ48278

     UP00/11/01 I 1000

• R14X PSY UQ48264

     UP00/11/01 I 1000