  ________________________________________________________________
 |                                                                |
 | The following zap for SELCOPY 2.02 is provisional and is       |
 | subject to change or withdrawal at the sole discretion of CBL. |
 |                                                                |
 | All published zaps are available from the CBL website at       |
 |                     http://www.cbl.com.                        |
 |________________________________________________________________|

//ZAPSELC  JOB  ,,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
//*
//*              *** Zaps for SELCOPY Rel 2.02 ***
//*
//*  Zaps correct known errors in the above release and are all
//*  independent, unless specifically stated otherwise.
//*  You may apply all of them, or only those applicable to your system.
//*  "All" indicates applicable to MVS, CMS and VSE.
//*
//*  (xQnnnnn - yyyy/mm/dd) indicates the CBL query reference and the
//*  date the zap was first published.
//*  Once published, a zap will not be changed, except by a further zap.
//*  Only its description may change to indicate the further requirement.
//*
//ZAPCBL   PROC
//ZAP      EXEC PGM=AMASPZAP,PARM=IGNIDRFULL
//SYSPRINT DD   SYSOUT=*
//SYSLIB   DD   DISP=SHR,DSN=your.loadlib     ** Tailor This **
//         PEND
//*
//*
//SQ11647  EXEC ZAPCBL
  *
  *  2008/02/22 - SQ11647 Zap revised.
  *               SELCOPY 2.02 Zap 09 (Ref: s202z09) is pre-requisite.
  *
  *
  * ** SQ11647 *** MVS:                          (SQ11647 - 2007/06/05)
  *  Allow ERR582 condition to pass without error,
  *  but give WTO warning.
  *  This zap will cause SELCOPY 2.02 to behave the
  *  same as SELCOPY 2.00 where RECFM/BLKSIZE/LRECL on
  *  MVS WRITE will update the already allocated
  *  data set geometry in the DCB without error.
  *  Note: This may cause data set corruption.
  *  ERR020 will be averted and WTO message:
  *   SELCOPY REL 2.02  *ATTN* ERR582 DCB MOD     JOB=<jobname>
  *  will be given.
  *  Zap 09 is a prerequisite.
   NAME          SELCOPY
  *
   VER   01E9DC   4780,D800
   VER   007D20   4740,D800
   VER   007D4C   4780,D800
   VER   007D60   4780,D800
   VER   007D6C   4780,D800
   VER   007D50   47F0,D82C
   VER   007D64   47F0,D82C
   VER   007D70   47F0,D82C
   VER   008030   0000,0008,0000,0007
   VER   007DA2   47F0,D82C
   VER   008038   0000,0006,0000,0005
   VER   007DB4   4710,D832
   VER   01EA30   07FE,5070,811C
   VER   01EF60   0000,0008,0000,0007,0000,0006
   VER   01EF6C   0000,0005,0000,0004,0000,0003
   VER   01B374   1BFF,43F0,C000,47F0,D9B6,9110
   VER   01B8C8   0000,0008,0000,0007,0000,0006
   VER   01B8D4   0000,0005,0000,0004,0000,0003
   VER   01B8E0   0000,0002,0000,0001,0000,0006
   VER   01B8EC   0000,0005,0000,0004,0000,0003
   VER   01B8F8   0000,0002,0000,0001
  *
   IDRDATA SQ11647
  *
   REP   01E9DC   4780,D7F4
   REP   007D20   4740,D7F4
   REP   007D4C   4780,D7F4
   REP   007D60   4780,D7F4
   REP   007D6C   4780,D7F4
   REP   007D50   47F0,AF30
   REP   007D64   47F0,AF30
   REP   007D70   47F0,AF30
   REP   008030   9252,C000,47F0,D7D4
   REP   007DA2   47F0,AF38
   REP   008038   9252,C000,47F0,D806
   REP   007DB4   4710,DD70
   REP   01EA30   0700,47F0,DD60
   REP   01EF60   9101,9056,4710,D836,9180,9057
   REP   01EF6C   4710,D836,5070,811C,47F0,D836
   REP   01B374   9552,C000,47F0,ABDE,0700,9110
   REP   01B8C8   5CC1,E3E3,D55C,40C5,D9D9,F5F8
   REP   01B8D4   F240,C4C3,C240,D4D6,C440,4770
   REP   01B8E0   ABF6,D215,C803,ABC8,58F0,C328
   REP   01B8EC   4110,C7F0,05EF,47F0,A67E,1BFF
   REP   01B8F8   43F0,C000,47F0,D9B6
/*
