++APAR(WR39336) /*
* PE ZAP:         WR 39336
*
* ZAP RELEASED:   December 8, 2006
*
* VERSION:        Version 1 Release 2.0
*
* SYMPTOM:        Abend 878-10 and 80A-10 in ISPF monitor.
*
* USERS AFFECTED: All users.
*
* PROBLEM DESCRIPTION: For some ISPF monitor functions, the LDMF
*                 PC routine does not release virtual storage used
*                 for data base I/O buffers and control blocks.
*
* SOLUTION:       Apply PE ZAP WR 39336
*
* 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(WR39336S)
*
*/.
++VER(Z038) FMID(LDM1200) PRE(WR38935 WR38936 WR38156 WR38937 WR37645
                              WR39037 WR38931 WR39113 WR38988 WR39114
                              WR39115 WR38765 WR39286 WR39287).
++VER(Z038) FMID(LDM1100) PRE(LD11606 WR38935 WR38936 WR38156 WR38937
                              WR37645 WR39037 WR38931 WR39113 WR38988
                              WR39114 WR39115 WR38765 WR39286 WR39287).
++ZAP(LDMFPCR1) .
  NAME LDMFPCR1 LDMFPCR1
  VER  5A62 41E0,0001
  VER  610A 41E0,0001
  VER  6288 41E0,0001
  REP  5A62 41E0,0000
  REP  610A 41E0,0000
  REP  6288 41E0,0000
  IDRDATA WR39336
++ZAP(LDMFMAIN) .
  NAME LDMFMAIN LDMFFIX
  VER 002C 00
  REP 002C 01
  IDRDATA WR39336