++APAR(WR39115) /*
* PE ZAP:         WR 39115
*
* ZAP RELEASED:   October 10, 2006
*
* VERSION:        Version 1 Release 2.0
*
* SYMPTOM:        Error during DIVERT can lead to CATLG RESWAP.
*
* USERS AFFECTED: All users.
*
* PROBLEM DESCRIPTION: Rename processing has a built-in safeguard
*                 to filter out reprocessing.  A similar mechanism
*                 needs to be implemented for the catalog swap
*                 process.
*
* SOLUTION:       Apply PE ZAP WR 39115.
*
* 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(WR39115S)
*
*/.
++VER(Z038) FMID(LDM1200) PRE(WR38935 WR38936 WR38156 WR38937 WR37645
                              WR39037 WR38931 WR39113 WR38988 WR39114).
++VER(Z038) FMID(LDM1100) PRE(LD11606 WR38935 WR38936 WR38156 WR38937
                              WR37645 WR39037 WR38931 WR39113 WR38988
                              WR39114).
++ZAP(LDMFRMAN) .
  NAME LDMFRMAN LDMFCTLG
  VER  07EA 95E8,8046
  VER  09B4 58F0,C728
  VER  5CA0 B008,B00A
  REP  07EA 45E0,B008
  REP  09B4 45E0,B016
  REP  5CA0 9102,614D,4710,C4CA,95E8,8046,07FE
  REP  5CAE 58F0,C728,B20A,0000,9602,614D,B20A,0080,07FE
  IDRDATA WR39115
++ZAP(LDMFMAIN) .
  NAME LDMFMAIN LDMFFIX
  VER 0022 00
  REP 0022 01
  IDRDATA WR39115