++ USERMOD(M096220)     /* REWORK(20090625) */             .
++ VER (Z038)
   FMID(EDM1102)
   PRE  (UZ72608)
 /*
   PROBLEM DESCRIPTION(S):
     M096220 -
       MsgIEA326I LOCATE FAILED FOR SYS1.LINKLIB and wait00A during
       NIP when master catalog is on D/T3375, 3380 or 3390.

       NIP LOCATE routine IEAVNP12 subroutine GETTRNM is called to
       read the true name record for the target of a LOCATE.  It
       searches the catalog index to find the correct pointer to
       the true name CI in the data component and builds the RBA
       of the target data CI.  When building the RBA, GETTRNM
       incorrectly calculates the value using the index component
       CI size instead of the data component CI size.  No problem
       results as long as index and data component have the same
       CI size, as with a catalog on 3350.  For 3375s, 3380s and
       3390s, VSAM selects different CI sizes for catalog index
       and data components, so the calculated value is wrong, an
       incorrect data record is read and the LOCATE fails.  When
       LOCATE fails for SYS1.LINKLIB, the result is msgIEA326I
       and wait00A.

       IEAVNP12 subroutine GETTRNM is changed to use the correct
       CI size when calcuating the true name CI RBA.

       While this usermod is not required for correct operation
       of IEAVNP12 with a master catalog on devices other than 3375,
       3380 or 3390, it will produce the correct results regardless
       of catalog device type.

   COMPONENT:  5752-SC1DE-EDM1102

   SPECIAL CONDITIONS:
     ACTION:  An IPL is required after installation of this user
       modification.

   COMMENTS:
     LAST CHANGE:  2009/06/25

     REWORK HISTORY:
       2009/06/25: MVS 3.8J DASD extensions 1.02

     CROSS REFERENCE-MODULE/MACRO NAMES TO USERMODS
       IEAVNP12  M096220

     CROSS REFERENCE-USERMODS TO MODULE/MACRO NAMES
       M096220   IEAVNP12

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:

     MODULES
       IEAVNP12

     LISTEND
 */.
++ ZAP      (IEAVNP12) DISTLIB(AOSC5   ).