* 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).
*
* Following DD statement required for program AMASPZAP
* //SYSLIB DD DSN=hlq.LDM120.LDMLLIB,DISP=SHR
*
* Following statements are required for the SYSIN DD statement
* //SYSIN  DD *
*
  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
*
* EACH FIX IS A ZAP; OFFSET IS FIXID-1, E.G. 0000 FOR FIX #1
* NON-ZERO VALUE MEANS FIX IS ON
*
* UPDATE FIX ID FOR STARTUP MESSAGE
  NAME LDMFMAIN LDMFFIX
  VER 002C 00
  REP 002C 01
  IDRDATA WR39336