++APAR(WR38935) /*
* PE ZAP:         WR 38935
*
* ZAP RELEASED:   October 3, 2006
*
* VERSION:        Version 1 Release 2.0
*
* SYMPTOM         If the same data set is selected in more than one
*                 SET statement, a "skipped" occurrence is still
*                 represented by a data set block.
*
* USERS AFFECTED: All users.
*
* PROBLEM DESCRIPTION: With certain commands that chase the data set
*                 queue looking for a match on data set name, there
*                 would be duplication. Ensure proper handling of
*                 duplicate data set blocks.
*
* SOLUTION:       Apply PE ZAP WR 38935.
*
* 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(WR38935S)
*
*/.
++VER(Z038) FMID(LDM1200).
++VER(Z038) FMID(LDM1100) PRE(LD11606).
++ZAP(LDMFMAIN) .
  NAME LDMFMAIN LDMFSNAP
  VER  03AC 4120,602C
  VER  03BA 4120,6058
  VER  10BC 92C3,F06D
  VER  6624 B054,B056
  REP  03AC 4120,502C
  REP  03BA 4120,5058
  REP  10BC 45E0,B054
  REP  6624 92C3,F06D,B20A,0000,9240,2000,D22A,2001,2000
  REP  6636 D207,2000,B0A6,5050,D010,F384,2008,D010
  REP  6646 9240,2010,4160,B200,4B60,B0AE,DC07,2008,6000
  REP  6658 B20A,0080,D203,D94E,B0A0,95E2,3000,078E
  REP  6668 D201,D950,B0A4,07FE,F2F0,F2F9,F3F0
  REP  6676 5C5C,5CC4,E4D7,D34B,00F0
  IDRDATA WR38935
  NAME LDMFMAIN QCOUTPUT
  BASE 011F68
  VER 01218A D503,4288,C500
  VER 0129CA 48F0,4304
  VER 012A40 D500,4306,427C
  VER 012F0C B03C,B03E
  REP 01218A D502,4288,C500
  REP 0129CA 45E0,B03C
  REP 012A40 D500,4312,4288
  REP 012F0C 48F0,4304,4BF0,B04A,072E,47F0,C428,000C
  IDRDATA WR38935
  NAME LDMFMAIN LDMFFIX
  VER 0018 00
  REP 0018 01
  IDRDATA WR38935