++APAR(WR37645)  /*
* PE ZAP:         WR 37645
*
* ZAP RELEASED:   October 3, 2006
*
* VERSION:        Version 1 Release 2.0
*
* SYMPTOM:        Divert verify fails with 'CLSTR VOL MISSING'.
*
* USERS AFFECTED: All users.
*
* PROBLEM DESCRIPTION: TFU relies on VVR information to
*                 validate multi-volume VSAM. VVR's are not
*                 updated as part of the verification process.
*                 RBA analysis fails.
*
* SOLUTION:       Apply PE ZAP WR 37645.
*
* PREREQ:         Applies to V1.2 Base (PTF Level LD11606).
*
* All statements in this member are input to SMPPTFIN
*
* //SMPPTFIN DD DISP=SHR,DSN=hlq.LDM120.BASE.ZAPS(WR37645S)
*
*/.
++VER(Z038) FMID(LDM1200) PRE(WR38935 WR38936 WR38156 WR38937).
++VER(Z038) FMID(LDM1100) PRE(LD11606 WR38935 WR38936 WR38156
                              WR38937).
++ZAP(LDMFRMAN) .
  NAME LDMFRMAN LDMFRENM
  VER  0160 5890,1004
  VER  03D8 4710,C404
  VER  1608 47F0,C304
  VER  2680 B008,B00A
  REP  0160 5890,78CC
  REP  03D8 4700,C404
  REP  1608 47F0,B008
  REP  2680 BFF1,6006,4780,C304,1810
  REP  268A D201,E002,1002,D207,E00E,100E
  REP  2696 4110,1014,41E0,E014,46F0,B012
  REP  26A2 47F0,C304
  IDRDATA WR37645
++ZAP(LDMFMAIN) .
  NAME LDMFMAIN LDMFFIX
  VER 001C 00
  REP 001C 01
  IDRDATA WR37645