* PE ZAP:         WR39114
*
* ZAP RELEASED:   October 10, 2006
*
* VERSION:        Version 1 Release 2.0
*
* SYMPTOM:        New extents created on agent do not divert.
*
* USERS AFFECTED: All users.
*
* PROBLEM DESCRIPTION: Extents that the owning system does not know
*                 about at diversion do not get marked as PNDIVERT or
*                 DIVERT.  Can lead to corruption of the data sets.
*
* SOLUTION:       Apply PE ZAP WR 39114.
*
* 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 LDMFMAIN LDMFSYLM
  VER  00472A BF8F,6008,4780,C354
  VER  0145C2 1000,1002
  REP  00472A 05EB,0000,4700,0000
  REP  0145C2 BF8F,6008,4780,C354
  REP  0145CA 187E             SAVE RETURN
  REP  0145CC 181D             POINT TO PARM AREA
  REP  0145CE 5B10,C3A4
  REP  0145D2 5090,1000        DWGLB@
  REP  0145D6 5060,1004        DWSYLM@
  REP  0145DA 5030,1008        DWGROUP@
  REP  0145DE BFEF,D0EC        LDMFSYLM_LIST_DCB@
  REP  0145E2 50E0,100C
  REP  0145E6 41E0,F044        =C'IPL'
  REP  0145EA 50E0,1010
  REP  0145EE 9680,1010        VL BIT
  REP  0145F2 58F0,BA68        ADDR OF SYNS_ACTIVATE
  REP  0145F6 58F0,F778        ADDR OF LDMFSNAP
  REP  0145FA 05EF             CALL  LDMFSNAP
  REP  0145FC 12FF             LTR   R15,R15
  REP  0145FE 4770,C35A        BNZ   EXIT8
  REP  014602 18E7,07FE        RETURN
  REP  014606 C9D7D340         C'IPL'
  IDRDATA WR39114
*
  NAME LDMFMAIN LDMFSNAP
  VER  3538 58F0,B3DC
  VER  3802 9640,4004,58F0,C898,181D,5B10,C880
  VER  6680 B0B0,B0B2
  REP  3538 45E0,B0B0
  REP  3802 9200,4005,D703,4030,4030,47F0,C72E
  REP  6680 58F0,B3DC,9104,6137,4710,C7AE,07FE
  IDRDATA WR39114
*
* 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 0021 00
  REP 0021 01
  IDRDATA WR39114