/* Apply XCOPY 1.4 maintenance. */
/* Copyright 1999 Sequential Software, Inc. */
mlvl = '141J'
zapnbr = '14055' /* Max zap nbr this file */
 
mmlvl = '1.'substr(mlvl,2,3)
'desbuf'
say ' '
say 'This file applies maintenance to XCOPY Rel 1.4.'
say 'The equivalent of 50 4K blocks of work space is required on the A-disk.'
say 'A list of the fixes applied will be displayed.  Please spool the '
say 'console if you wish to save this list. This is a cumulative update'
say 'and will bring any version of XCOPY 1.4 to the' mmlvl' maintenance level.'
say ' '
say 'The maintenance procedure should be quick and painless, but if'
say 'any errors occur, or you have the least question, please call'
say 'Sequential Software at 201-652-3300, or email info@seqsoft.com.'
say ' '
 
do forever
say 'Continue?  y/n'
pull ans
if ans = 'Y' then leave
if ans = 'N' then exit
end
 
xcm1 = 'XCMAIN'
xcm2 = 'XCMAIN2'
'listf xcmain module * (date fifo'
if rc /= 0 then do
  say 'The XCOPY Rel 1.4 installation modules are not accessed.'
  exit rc
  end
 
pull fn ft fm recfm lrecl rest
'execio 1 diskr' fn ft fm '1 (LIFO'
pull modurec
modlen = c2d(substr(modurec,9,4))
if modlen < 251664 then do
  say 'A previous release of XCOPY is accessed before the 1.4 modules.'
  'desbuf'
  exit 4
  end
'desbuf'
 
'listf xcopy module * (date fifo'
pull fn ft fm recfm lrecl rest
'desbuf'
if rc /= 0 then do
  say 'XCOPY module not accessed.'
  exit rc
  end
if lrecl /= 2648 then do
  say 'The accessed XCOPY module is not for Release 1.4.'
  rc = 4
  exit
  end
 
rwdisks = 'A'
'query disk r/w (lifo'
do while queued() > 1
pull lbl 8 cuu fm rw rest
rwdisks = rwdisks  fm
end
'desbuf'
 
/* modules = 'XCOPY' xcm1 xcm2 'XCF BLOCKS CMPR MACCOMP FCOMPARE ZZAP' */
modules = 'XCOPY' xcm1 xcm2 'XCF XCL TRYLIST'
do i = 1 to WORDS(modules)
mod = word(modules,i)
'listf ' mod 'module * (fifo'
if rc /= 0 then do
  say mod 'MODULE is not available on a R/W disk.'
  rc = 4
  exit rc
  end
pull fn ft fm rest
'desbuf'
tstm = left(fm,1)
if index(rwdisks,tstm) = 0 then do
  say mod 'MODULE is not available on a R/W disk.'
  rc = 4
  exit rc
  end
end
zfm = fm
 
parse source cmshdr ctype cfn cft cfm cmdorig cmdaddr
if cfn = '*' then do
  say 'Difficulty locating the XCMAINT exec.'
  rc = 4
  exit
  end
 
'copyf' cfn 'exec' cfm 'bad14045 zap a (recfm f lr 80 frl *NG14045 tol *MB rep'
if rc /= 0 then do
  say 'Extraction of bad14045 ZAP failed.'
  exit rc
  end
 
'zzap bad14045 '
if rc /= 0 then do
  say 'ZZAP failure while removing bad14045 zap.'
  exit rc
  end
 
'erase bad14045 zap a'
 
'copyf' cfn 'exec' cfm mlvl' zap a (recfm f lr 80 frl *MB tol MAINTEND rep'
if rc /= 0 then do
  say 'Extraction of 'mlvl' ZAP failed.'
  exit rc
  end
 
'zzap 'mlvl' (maint'
if rc /= 0 then do
  say 'ZZAP failure while applying maintenance.'
  exit rc
  end
 
'zzap 'mlvl' (vero unz'
if rc /= 0 then do
  say 'ZZAP maintenance verification failed.'
  exit rc
  end
 
'erase 'mlvl' zap a'
 
queue 'NAME' xcm1 'CP14'
queue 'REP 0046' c2x(substr(mlvl,2,3))'40'c2x(zapnbr)
queue 'END '
'zzap'
if rc /= 0 then do
  say 'Maintenance level update failed.'
  exit rc
  end
 
say 'XCOPY 'mmlvl' maintenance successfully applied.'
exit
 
/*    Maintenance data follows
*NG14045   7/22/99 correction
NAME XCMAIN COPVA
REP 0686 4150,DB86,41E0,AED0  :25
NAME XCMAIN CP14
REP 00E2 0000,0000,0000,0000,0000,0000,0000,0000  :F2
REP 00F2 0000,0000,0000,0000,0000,0000,0000,0000  :02
REP 0102 0000,0000,0000,0000,0000,0000,0000  :11
*MB
* XPF14001  (1) I/O ERRORS, BAD OUTPUT WHEN CHGING BLK SIZES.
*           (2) PROG X'15' WHEN SWITCHING INPUT DISKS.
*           7-3-95.
NAME XCMAIN COPV7
VER 0514 8340,00A8,4780,C542  :5A
REP 0514 5860,D310,4550,612C  :DE
VER 0770 8340,00A8,4780,C79E  :16
REP 0770 5860,D310,4550,611C  :2C
NAME XCMAIN COPV9
VER 211C 5870,D5B0,45E0,A14A,12FF,4770,A13C,58E0  :87
REP 211C 9104,D4B2,071E,8340,00A8,4780,C79E,07F5  :20
VER 212C D048,5800,D050,4110,D200,982C,D058,07FE  :01
REP 212C 9102,D4B2,4710,C542,8340,00A8,4780,C542  :0D
VER 213C D503  :37
REP 213C 07F5  :5B
* XPF14002  ALLOW OPTIONAL EXTRA 2 DIGITS AT BEGINNING OF YEAR
*           SPECIFICATION IN THE DATE USED WITH 'AFTER', 'BEFORE', OR
*           'CDATE' OPTIONS.  E.G., MM/DD/19YY, OR 19YY/MM/DD.
*           7-25-95.
NAME XCMAIN   CPRS
VER 113C 5000,D456,4000,D45A  :3D
REP 113C 9250,D456,5000,D457  :DC
VER 11B4 4130,DA80,D207,DA80,1000,45E0,C2B4  :7C
REP 11B4 5820,D314,4A20,DC38,0700,45E0,213E  :3B
VER 11DE 4200,D8D8  :E5
REP 11DE 45E0,2186  :BF
NAME XCMAIN   COPV9
VER 213E D084,D2F4,4770,A8B4,47F0,A12A,4160,0008  :47
REP 213E 4130,DA80,D207,DA80,1000,D501,3000,21BC  :60
VER 214E 5820,D9D4,1B26,955E,7000,4770,A230,9140  :A2
REP 214E 4740,C2B4,D501,3000,21BE,4720,C2B4,5830  :C6
VER 215E D4A8,5830,7000,4840,7006,4780,A174,5830  :65
REP 215E D7B0,D207,DA80,3002,4130,DA80,45E0,C2B4  :E1
VER 216E 7004,4840,7002,5440,DC1C,1E34,4700,0000  :32
REP 216E 4200,D8D8,45E0,C2B4,4200,D8D9,45E0,C2B4  :BA
VER 217E 4700,0000,4B30,DAE6,9140,D4A8,4710,A1A0  :16
REP 217E 4200,D8DA,47F0,C1F8,4200,D8D8,D500,D8D8  :0A
VER 218E 9260,2004,5030,2000,D202,2005,DAE5,47F0  :64
REP 218E 21C0,074E,D500,D8D8,21C1,072E,41E0,DA80  :0C
VER 219E A1AE,9260,2001,5030,2004,D201,2002,DAE6  :8A
REP 219E 1B3E,4930,DC3C,4740,21AC,4130,0008,5A30  :10
VER 21AE 921E,2000,1B26,4B40,DAE6,4720,A182,1B76  :56
REP 21AE D7B0,45E0,C2B4,4200,D8D8,47F0,C1F8,F1F9  :CD
VER 21BE 955E,7008  :4E
REP 21BE F2F0,1920  :FE
NAME XCMAIN X252
VER 0754 F020  :6D
REP 0754 F01C  :69
* XPF14004  ADJUST TIME BOMB CHECK TO HANDLE THE END OF THE CENTURY.
*           REQUIRES A TMBEND ADDRESS IN XCHASH3 BE BUMPED UP BY
*           X'34'.  REL. 1.3 AND 1.4 HASH LOGS WOULD HAVE TO BE
*           MAINTAINED SEPARATELY.
NAME XCMAIN COPV9
VER 0F4A D571,C022,C0E8  :2F
REP 0F4A D549,C046,C10C  :50
VER 0F7E D502,D8D8,BF44  :1D
REP 0F7E 4540,C0E8,0700  :C7
VER 1034 C0E8  :EE
REP 1034 C11C  :23
VER 10E8 4850,BF48,0650,1835,1E55,1E53,4130,BF1F  :7D
REP 10E8 9550,D8D8,47A0,C100,9550,BF44,47A0,BFF4  :C7
VER 10F8 4110,C0E8,1F35,4160,0000,4120,0010,5430  :FB
REP 10F8 D502,D8D8,BF44,07F4,9550,BF44,4740,4006  :52
VER 1108 DC90,1F12  :BA
REP 1108 47F0,C0F8  :0C
NAME XCF XCF
VER 1780 4110,B928  :CD
REP 1780 45E0,C196  :17
VER 0196 0000,0000,0000,0000,0000,0000,0000,0000  :A7
REP 0196 9550,D110,4720,C1A6,9550,10BC,47A0,CA30  :CD
VER 01A6 0000,0000,0000  :AD
REP 01A6 4110,B928,07FE  :E4
* XPF14006 Addressing exception possible during a group copy. ECKD
*          channel program being used. 12/4/95.
NAME XCMAIN   CPSN89
VER 0664 4310,801C  :5D
REP 0664 45F0,BB7A  :D8
VER 0B7A 47F0,BB80,0000,0000  :FF
REP 0B7A 1B11,4310,801C,07FF  :AE
* XPF14007 XCOPY728I Fast Group Copy cannot complete Code 1 message
*          attempting a group copy to a RAMAC or non-cached 3990
*          controller.  12/5/95.
NAME XCMAIN   CPNOVA
VER 0CC4 BCEC  :7A
REP 0CC4 CBB4  :51
VER 0CCE BCEC  :84
REP 0CCE CBB4  :5B
VER 1BB4 47F0,CBB8,0000,0000  :91
REP 1BB4 9604,8001,47F0,BCEC  :D1
NAME XCMAIN   CPSN89
VER 03CA 9180,8001  :63
REP 03CA 9184,8001  :67
* XPF14008  Diag 250 I/O error with Vdisk.  12-05-95.
*
NAME XCMAIN X252
VER 01B4 4700,0000  :00
REP 01B4 9608,D4B3  :DE
* XPF14010  Adjust XPF14005 to account for VMPC automatically.  1-16-96.
NAME TRYLIST TRYLIST
VER 0188 9509,0E5D  :96
REP 0188 9218,DCAD  :C0
VER 2226 9218,DCAD,072E,47F0,C1B6,0000,0000,0000  :6E
REP 2226 D505,00AE,A23A,4780,C1B6,9509,0E5D,072E  :38
VER 2236 0000,0000,0000,0000,0000  :62
REP 2236 47F0,C1B6,E5D4,61D7,C340  :04
* XPF14011 DMSDKD1307T File system error possible after a group
*          copy operation overfills an output disk. Some level 2
*          files are needed to induce the problem. A rare combina-
*          tion of input files, output disk size is also needed.
*          Conversion of XPF13368, 1/15/96.
NAME XCMAIN   CPMERC
VER 0606 45E0,B63C,5000,A33C  :5A
REP 0606 5820,A32C,47F0,CD58  :B7
VER 0638 47F0,B35C  :88
REP 0638 47F0,CD34  :7A
VER 1D34 47F0,CD38,0000,0000,0000,0000,0000,0000  :9D
REP 1D34 5830,A668,4630,CD50,5820,A32C,0620,0620  :1D
VER 1D44 0000,0000,0000,0000,0000,0000,0000,0000  :71
REP 1D44 5020,A32C,5820,A398,5830,20B8,5030,A668  :51
VER 1D54 0000,0000,0000,0000,0000,0000,0000,0000  :81
REP 1D54 47F0,B35C,0620,0620,5020,A32C,5820,A398  :05
VER 1D64 0000,0000,0000,0000,0000,0000,0000,0000  :91
REP 1D64 5830,20B8,5030,A668,45E0,B63C,5000,A33C  :C5
VER 1D74 0000,0000  :95
REP 1D74 47F0,B60E  :90
NAME XCMAIN   CPVMERC
VER 0668 0000,0000  :72
REP 0668 0000,0001  :73
* XPF14013 XCOPY728I Fast Group Code 1 error when FORMAT option used.
*          1/18/96
NAME XCMAIN   CPSN89
VER 0684 41F0,F008  :B7
REP 0684 47F0,BB82  :02
VER 0722 B784  :66
REP 0722 BB94  :7A
VER 0B82 0000,0000,0000,0000,0000,0000,0000,0000  :9D
REP 0B82 D501,8018,BB64,4780,B68E,41F0,F008,47F0  :95
VER 0B92 0000,0000,0000,0000,0000,0000,0000,0000  :AD
REP 0B92 B688,D501,8018,BB64,4780,B724,47F0,B784  :8C
* XPF14014  Turn off I/O overlap when invoked by DVHSPV to avoid
*           wait in DIRMAINT.  1-18-96.
NAME XCMAIN   X252
VER 0214 DD6C  :61
REP 0214 C938  :19
VER 0938 0000,0000,0000,0000,0000,0000,0000,0000  :51
REP 0938 5830,0674,D501,301E,DB62,4780,DD6C,5840  :5C
VER 0948 0000,0000,0000,0000,0000,0000,0000,0000  :61
REP 0948 3014,5840,4088,1244,4780,DD6C,D507,4008  :8F
VER 0958 0000,0000,0000,0000,0000,0000,0000,0000  :71
REP 0958 C962,4770,C94A,47F0,C21C,C4E5,C8E2,D7E5  :8A
VER 0968 0000  :73
REP 0968 4040  :F3
* XPF14015  Incorrect output lrecl possible in a certain case of
*           appending recfm V records with the FROM option.
*           Corresponds to XPF13370.  1-11-96.
NAME XCMAIN COPV7
VER 1984 58E0,D980  :32
REP 1984 4580,B5C2  :DD
VER 15B4 9508,D74D,58F0,D964,5890,D4B8,183F,4770  :A1
REP 15B4 58F0,D964,5890,D4B8,183F,47F0,B5E4,D503  :D1
VER 15C4 B5E4,9110,D4AD,4800,D976,4190,9008,4780  :6B
REP 15C4 D568,D4F4,58E0,D980,0728,58F0,D6E8,1BFE  :CD
VER 15D4 B5DA,5850,D968,8900,0003,1EF0  :07
REP 15D4 19F3,07C8,183F,50F0,D564,07F8  :9F
NAME XCMAIN COPV8
VER 00C4 4770  :7D
REP 00C4 4700  :0D
NAME XCMAIN COPV9
VER 1890 4770  :61
REP 1890 47F0  :E1
* XPF14016 XCOPY728I Fast group copy cannot complete - code 1, or other
*          spurious disk conditions after using the FORMAT option with
*          an ECKD output disk.  1/19/96.
NAME XCMAIN   CPSN89
VER 0642 5047,3000  :13
REP 0642 4510,BBA2  :FE
VER 06E2 4B10,BB76  :78
REP 06E2 5810,BBAC  :BB
VER 07B0 4B10,BB76  :47
REP 07B0 5810,BBAC  :8A
VER 0BA2 0000,0000,0000,0000,0000,0000,0000  :BB
REP 0BA2 5047,3000,5040,BBAC,07F1,0000,0001  :72
* XPF14017  Allow 'exec cmd * * mr' in the XCL command line so exec's
*           can be run against marked lines.
*           Also fix:  eplist for a few cms cmds, marked file selection
*           for ft pattern other than *, and display of recfm after
*           file rename.  1-22-96.
NAME TRYLIST  TRYLIST
VER 0110 D2DC  :C1
REP 0110 D534  :1C
VER 0210 D2DF  :C5
REP 0210 D537  :20
VER 0C84 4130,3007  :3C
REP 0C84 45E0,A266  :C1
VER 0CA6 4600,CC88  :50
REP 0CA6 47F0,A272  :01
VER 0F24 41E0,CFF8,4100,0000  :64
REP 0F24 45E0,A25C,41E0,CFF8  :46
VER 0F76 4130,D1A8  :73
REP 0F76 47F0,A240  :A2
VER 1E20 D2DC  :EE
REP 1E20 D534  :49
VER 2240 0000,0000,0000,0000,0000,0000,0000,0000  :72
REP 2240 D507,D918,A284,4130,D1A8,4770,CF7A,D207  :28
VER 2250 0000,0000,0000,0000,0000,0000,0000,0000  :82
REP 2250 D198,A284,45E0,B59C,47F0,CF7A,9240,D19B  :45
VER 2260 0000,0000,0000,0000,0000,0000,0000,0000  :92
REP 2260 4100,0000,07FE,4130,3007,D207,D268,3012  :D5
VER 2270 0000,0000,0000,0000,0000,0000,0000,0000  :A2
REP 2270 07FE,4600,CC88,4B30,ACD8,D205,3001,D26A  :84
VER 2280 0000,0000,0000,0000,0000,0000  :AE
REP 2280 47F0,CCAA,C5E7,C5C3,4040,4040  :8F
NAME TRYLIST  TRYLIST2
VER 0C9C D8B0  :32
REP 0C9C D8C0  :42
VER 0D78 4110,D1A0  :4B
REP 0D78 45E0,C6B4  :28
VER 14D2 D2DC  :96
REP 14D2 D534  :F1
VER 16B4 0000,0000,0000,0000,0000,0000,0000,0000  :DA
REP 16B4 95C3,D19B,4110,D1A0,077E,4110,D198,07FE  :A4
* XPF14018  XCOPY906E I/O error, failing diag 250 when more than 256
*           blocks to be read or written at once.  1-22-96.
NAME XCMAIN X252
VER 0376 4720  :E2
REP 0376 4740  :02
* XPF14019 Corrupted output disk possible after a group copy
*          operation. Output disk must have pre-existing files
*          whose allocation is fragmented.
*          1/23/96
NAME XCMAIN   CPSN89
VER 05DC B700  :9A
REP 05DC BBB0  :4E
VER 0BB0 0000,0000,0000,0000,0000,0000,0000,0000  :CB
REP 0BB0 1B11,4310,8024,5910,8010,4780,B700,47F0  :9C
VER 0BC0 0000  :CD
REP 0BC0 B6FC  :7F
* XPF14020  Addressing exception if group copy with I/O overlap
*           invoked from XCL.  1-24-96.
NAME TRYLIST  TRYLIST
VER 0204 47F0,C20C,4700,D4B0  :DE
REP 0204 4700,C20C,45E0,A28C  :76
VER 08A2 5030,007C  :AA
REP 08A2 4520,A2A2  :57
VER 08B6 41F0,0000,5030,D484  :CF
REP 08B6 45F0,A2B0,41F0,0000  :7E
VER 0A0E 5010,D484,4700,D5D5  :C9
REP 0A0E 5610,D774,5010,D484  :89
VER 0C02 5610  :76
REP 0C02 4700  :57
VER 228C 0000,0000,0000,0000,0000,0000,0000,0000  :BE
REP 228C 1B44,9180,05EA,4780,A29C,0D40,5440,A2AC  :51
VER 229C 0000,0000,0000,0000,0000,0000,0000,0000  :CE
REP 229C 5040,D774,07FE,5630,D774,5030,007C,07F2  :74
VER 22AC 0000,0000,0000,0000,0000,0000,0000  :DC
REP 22AC 8000,0000,5630,D774,5030,D484,07FF  :0B
NAME TRYLIST GRPCPY
VER 01EC C230,4110,C490  :8A
REP 01EC C314,45E0,C33E  :F0
VER 0314 0000,0000,0000,0000,0000,0000,0000,0000  :27
REP 0314 D217,B210,C448,D207,B218,C336,4110,B210  :8D
VER 0324 0000,0000,0000,0000,0000,0000,0000,0000  :37
REP 0324 45E0,C2E2,12FF,5810,B220,4780,C230,47F0  :3B
VER 0334 0000,0000,0000,0000,0000,0000,0000,0000  :47
REP 0334 C1EE,E7C3,D4C1,C9D5,4040,D207,B210,B174  :13
VER 0344 0000,0000,0000,0000,0000,0000  :53
REP 0344 D22F,B218,C498,4110,B210,07FE  :92
* XPF14021  Data exception when the FST of the last file selected
*           begins at address X'00FFFFC0', in 24-bit mode.  1-26-96.
NAME TRYLIST TRYLIST2
VER 025E 4146,4000  :2B
REP 025E 1A46,0700  :CB
* XPF14022  Wait possible at end of a copy of a fairly large file to
*           a Vdisk.  1-30-96.
NAME XCMAIN X252
VER 0414 C406  :E4
REP 0414 C96A  :4D
VER 096A 0000,0000,0000,0000  :7B
REP 096A 9640,C7B0,47F0,C406  :C9
* XPF14023 Operation exception possible during certain group
*          copys, without the FORMAT option. 1/30/96
NAME XCMAIN CPMERC
VER 11D2 C1D8  :7E
REP 11D2 C1DA  :80
* XPF14024  (1) Addressing exception in XCL when enough files are
*           added to the file list with the ADD function.
*           (2) Protection exception when invoking XCOPY Rel 1.4
*           from XCL if (a) XPF14020 applied, (b) nucleus extensions
*           called XCMAIN and XCMAIN2 are loaded, and (c) the XCMAIN
*           extension is in a DCSS/LSS or has the system attribute.
NAME TRYLIST TRYLIST2                     (1)
VER 03C8 5010,D5B4  :B8
REP 03C8 45E0,C6C4  :7E
VER 16C4 0000,0000,0000,0000,0000  :E4
REP 16C4 5010,D5B4,5020,D868,07FE  :82
VER 03E8 1812,47F0,E000  :32
REP 03E8 5810,D868,07FE  :9E
NAME TRYLIST GRPCPY                       (2)
VER 01EC C314  :C6
REP 01EC C350  :02
VER 0330 C230  :27
REP 0330 C358  :50
VER 0350 0000,0000,0000,0000,0000,0000,0000,0000  :63
REP 0350 5010,B260,47F0,C314,5810,B260,47F0,C230  :86
* XPF14025  Bad output, and/or program check.  2-2-96.
NAME XCMAIN X252
VER 0522 C56A  :58
REP 0522 C55A  :48
* XPF14026  If interrupt handler ever fails to be set, turn off
*           asynchronous I/O more effectively.  2-2-96.
NAME XCMAIN COPV7
VER 025A 58F0,D36C,45E0,F000,47F0,C2AE  :AB
REP 025A 47F0,C2AE,47F0,A1C4,47F0,0000  :E2
NAME XCMAIN COPV9
VER 1E0C 4770,CE16,1EE9,47F0,CE26  :01
REP 1E0C 58F0,D36C,05EF,48E0,DD26  :DA
NAME XCMAIN X252
VER 0122 D324  :1C
REP 0122 D314  :0C
VER 0128 D20B  :08
REP 0128 D209  :06
VER 070A 45E0,F000,47F0  :63
REP 070A 05EF,48E0,DD26  :36
VER 0782 025A  :E7
REP 0782 1E0C  :B5
* XPF14027  Avoid possible wait when running under CP at level
*           >= VM/ESA Rel 1.2, and CMS < than this.  2-28-96.
NAME XCMAIN   X252
VER 021A C220  :00
REP 021A C972  :59
VER 0568 DD6C  :B8
REP 0568 C99C  :D4
VER 0972 0000,0000,0000,0000,0000,0000,0000,0000  :8B
REP 0972 950E,0E5D,47B0,C220,B600,C998,9102,C99A  :7F
VER 0982 0000,0000,0000,0000,0000,0000,0000,0000  :9B
REP 0982 4710,C220,D203,D8D8,C998,9602,08DA,B700  :EB
VER 0992 0000,0000,0000,0000,0000,0000,0000,0000  :AB
REP 0992 D8D8,47F0,C220,0000,0000,58F0,C998,12FF  :2E
VER 09A2 0000,0000,0000,0000,0000,0000  :B7
REP 09A2 4780,DD6C,B700,C998,47F0,DD6C  :5F
* XPF14028  Protection exception running CMS < VM/ESA Rel 1.2 and
*           CP >= this level.  Correct typo in XPF14026.  3-14-96.
NAME XCMAIN X252
VER 098E 08DA  :7B
REP 098E D8DA  :4B
* XPF14029  To avoid pgm check, recognize pre-VM/ESA 1.2 CP running
*           second level under CP at >= VM/ESA 1.2.  3-15-96.
NAME XCMAIN   X252
VER 00DC 9140,C8B1  :2A
REP 00DC 45E0,C9AE  :7C
VER 09AE 0000,0000,0000,0000,0000,0000,0000  :C5
REP 09AE 9180,C8B0,4710,C220,9140,C8B1,07FE  :D6
* XPF14030  Enable XCL to run with screens wider than 80 characters.
*           3-15-96.
NAME TRYLIST TRYLIST
VER 018E A222  :55
REP 018E A2D8  :0B
VER 01AA 4850,DCAC  :CF
REP 01AA 45E0,A2BA  :30
VER 023E C658  :60
REP 023E A2C6  :AA
VER 04BA 4130,0194  :C8
REP 04BA 4170,0050  :C3
VER 04C2 18F3,0E2E  :11
REP 04C2 47F0,A2E0  :83
VER 10BE A8E6  :5E
REP 10BE A8D6  :4E
VER 22BA 0000,0000,0000,0000,0000,0000,0000,0000  :EC
REP 22BA 4850,DCAC,D200,A8E7,DCAB,07FE,9550,2000  :FE
VER 22CA 0000,0000,0000,0000,0000,0000,0000,0000  :FC
REP 22CA 4760,C658,D200,2000,DCAB,47F0,C658,9250  :71
VER 22DA 0000,0000,0000,0000,0000,0000,0000,0000  :0C
REP 22DA DCAB,47F0,A222,D203,2000,E000,4860,DCAA  :91
VER 22EA 0000,0000,0000,0000,0000,0000,0000,0000  :1C
REP 22EA 4120,2004,41E0,E004,5670,A8D0,4100,0005  :2A
VER 22FA 0000,0000,0000,0000,0000,0000,0000  :2A
REP 22FA 1836,18F7,0E2E,4600,A2FA,47F0,C4C6  :66
NAME TRYLIST TRYLIST2
VER 15F4 4160,0000,5D60,C8CC  :03
REP 15F4 4830,DCAA,1B66,1D63  :10
VER 1624 C8CE  :D2
REP 1624 DCAA  :C2
* XPF14031  Turn off I/O overlap under older DIRMAINT which is not
*           compatible with diag 250.  Requires XPF14014.  4-8-96.
NAME XCMAIN X252
VER 0954 D507
REP 0954 D502
VER 0960 C21C
REP 0960 C9BC
VER 09BC 0000,0000,0000,0000,0000,0000,0000,0000
REP 09BC D504,400B,C965,4780,C21C,D504,400B,C9D4
VER 09CC 0000,0000,0000,0000,0000,0000,0000,0000
REP 09CC 4760,C94A,47F0,C21C,C9D7,D340,4000
* XPF14032  Protection exception possible with multi-file input but
*           non-fast group copy mode when a large recfm V file.
*           4-17-96.
NAME XCMAIN COPVA
VER 06C0 C706  :95
REP 06C0 AE80  :F6
VER 0E1E 4770,AE80,07FE  :1C
REP 0E1E 4780,E000,0000  :D9
VER 1E80 0000,E3D9,D2C5,D9D9  :AB
REP 1E80 9200,D5AF,47F0,C706  :C0
* XPF14033  Incorrect recfm V index info at the end of a large recfm v
*           file in certain cases when the final data blocks contain
*           all binary zeroes.  4-19-96.
NAME XCMAIN COPVA
VER 11C8 A2BE  :3B
REP 11C8 A2C2  :3F
VER 12BE 9508,D74D,4770,A2DA,4860,B0EE,41E0,F000  :2B
REP 12BE 47F0,A2DA,95C6,90B6,4780,A2DA,5540,B0AC  :68
VER 12CE 4160,6003,89E0,6000,5AE0,B0A8  :4B
REP 12CE 4780,A2A8,4700,0000,4700,0000  :8B
* XPF14034  Possible input I/O error 12 from diag 250 in 370 mode.
*           4-22-96.
NAME XCMAIN X252
VER 0650 9202,4000  :2E
REP 0650 4550,C9DA  :92
VER 09DA 0000,0000,0000,0000,0000  :ED
REP 09DA 4130,3000,9202,4000,07F5  :5E
NAME XCMAIN OURRDWT
VER 0172 C17C  :B2
REP 0172 C520  :5A
VER 051C 9508,D74D,4770,C538,5890,DAEC,18E3,4880  :17
REP 051C 47F0,C538,9104,D4B2,D201,C426,CADE,4780  :AC
VER 052C 90EE,5BE0,D21C,88E0,8000,1F3E  :29
REP 052C C17C,D201,C426,C732,47F0,C17C  :A4
* XPF14035  Data exception in XCL if dir is in data space.  4-25-96.
NAME TRYLIST TRYLIST2
VER 00E4 5830,100C  :8C
REP 00E4 45E0,C6CE  :A1
VER 0138 4110,7000,45E0,F000  :17
REP 0138 9108,1049,45E0,C726  :45
VER 0176 4110,7008,45E0,F000  :5D
REP 0176 9108,1049,45E0,C752  :AF
VER 01EE 955C,D590,92FF,2000  :FE
REP 01EE 45E0,C6E6,955C,D590  :1E
VER 0228 5860,10B4  :AA
REP 0228 45E0,C6FE  :17
VER 027C B286  :B8
REP 027C C712  :59
VER 16CE 0000,0000,0000,0000,0000,0000,0000,0000  :F4
REP 16CE 9108,1049,5830,100C,078E,B219,0200,9A33  :B9
VER 16DE 0000,0000,0000,0000,0000,0000,0000,0000  :04
REP 16DE 11B0,5170,3000,07FE,9108,1049,92FF,2000  :5E
VER 16EE 0000,0000,0000,0000,0000,0000,0000,0000  :14
REP 16EE 078E,5130,0000,5170,0000,B219,0000,07FE  :BB
VER 16FE 0000,0000,0000,0000,0000,0000,0000,0000  :24
REP 16FE 9108,1049,5860,10B4,078E,B219,0200,9A44  :D2
VER 170E 0000,0000,0000,0000,0000,0000,0000,0000  :35
REP 170E 11B0,07FE,9108,1049,4780,B286,5140,0000  :7D
VER 171E 0000,0000,0000,0000,0000,0000,0000,0000  :45
REP 171E B219,0000,47F0,B286,4110,7000,078F,D207  :AF
VER 172E 0000,0000,0000,0000,0000,0000,0000,0000  :55
REP 172E D8A0,7000,4110,D8A0,B219,0000,4700,0000  :18
VER 173E 0000,0000,0000,0000,0000,0000,0000,0000  :65
REP 173E 50E0,D8AC,45E0,F000,58E0,D8AC,B219,0200  :B7
VER 174E 0000,0000,0000,0000,0000,0000,0000,0000  :75
REP 174E 47F0,E000,4110,7008,078F,D207,D8A0,7008  :B4
VER 175E 0000,0000  :79
REP 175E 47F0,C732  :A9
* XPF14036  Incorrect output for a boundary case when concatenating
*           recfm V input files to recfm V output.  EOF of an input
*           file falls 1 byte short of the end of XCOPY's buffer.
*           5-2-96.
NAME XCMAIN COPV7
VER 1664 5060,5004  :82
REP 1664 47F0,B4C4  :2D
VER 14C0 9508,D74D,58F0,1030,89F0,0003,4770,B4DA  :EE
REP 14C0 47F0,B4DA,153F,4780,AE5E,5060,5004,47F0  :0B
VER 14D0 1EF3  :F7
REP 14D0 B668  :04
VER 21E2 B664  :1F
REP 21E2 B4CA  :83
VER 2E5E D205,B62E,AFCE,9208  :66
REP 2E5E 5830,D370,47F0,305A  :20
NAME XCMAIN CP14
VER 005A 0000,0000,0000,0000,0000,0000,0000,0000  :6A
REP 005A D403,D568,D568,183F,4760,B4CA,9500,B6AF  :31
VER 006A 0000,0000,0000,0000,0000,0000,0000,0000  :7A
REP 006A 4760,B4CA,9500,F000,4780,A35C,47F0,B4CA  :9F
* XPF14037  Possible protection exception in XCOPY frontend when
*           a copy is invoked in 24-bit mode in a virtual machine
*           larger than 16 meg.  5-14-96.
NAME XCOPY
VER 0538 8100  :C0
REP 0538 8000  :BF
* XPF14038  Junk lines stacked when STACK option used in a virtual
*           machine larger than 16 Meg.  8-01-96.
NAME XCMAIN COPV9
VER 1C52 A7F4  :0B
REP 1C52 A754  :6B
VER 1F04 9214,A804,4110,A7F8,45E0,DD6C,4700,A614  :E4
REP 1F04 58F0,D370,9140,D4A8,4110,A7F4,45E0,F07A  :86
VER 2754 0000,0000  :7F
REP 2754 0001,E000  :60
VER 27F4 0001,E000  :00
REP 27F4 C4D4,E2E2  :7B
NAME XCMAIN CP14
VER 007A 0000,0000,0000,0000,0000,0000,0000,0000  :8A
REP 007A 4710,F08A,4110,1004,9214,A804,47F0,DD6C  :92
VER 008A 0000,0000,0000,0000,0000,0000,0000,0000  :9A
REP 008A D203,1004,F0A2,D203,1008,100C,41F0,0014  :63
VER 009A 0000,0000,0000,0000,0000,0000  :A6
REP 009A 50F0,100C,47F0,DD6C,E3D2,4040  :B7
NAME XCMAIN QUICK
VER 05CE A7F4  :70
REP 05CE A754  :D0
* XPF14039  Incomplete output with recfm V output, a record oriented
*           option such as TRUNC, and a 2-byte rdw spanned between
*           the next-to-last and last XCOPY I/O buffers.  Requires
*           XPF14036, to which this is a correction.  8-6-96.
NAME XCMAIN COPV7
VER 2E64 305A  :1E
REP 2E64 30A6  :6A
NAME XCMAIN CP14
VER 00A6 0000,0000,0000,0000,0000,0000,0000  :B4
REP 00A6 9500,B655,4760,305A,183F,47F0,B4CA  :91
* XPF14040  If the CHECK option is specified, attempt to ameliorate
*           an invalid recfm V file in which the FST record count is
*           greater than the high record number in the index for the
*           last data block.  This condition would normally cause
*           XCOPY to abend with an Error 42 and rc=42.  With the CHECK
*           option, force the high record number in the indexes of the
*           file into the record count of the FST of the output file.
*           08-08-96.
NAME XCMAIN COPV9
VER 023E4 5540,5004,47B0,A42E  :C1
REP 023E4 58E0,D370,47F0,E0B4  :55
NAME XCMAIN CP14
VER 00B4 0000,0000,0000,0000,0000,0000,0000,0000  :C4
REP 00B4 5540,5004,4740,A3EC,5540,5010,47C0,A42E  :91
VER 00C4 0000,0000,0000,0000,0000,0000,0000,0000  :D4
REP 00C4 D403,5010,5010,4780,A42E,9108,D491,4780  :C9
VER 00D4 0000,0000,0000,0000,0000,0000,0000  :E2
REP 00D4 A42E,5840,5010,5040,D500,47F0,A42E  :1A
* XPF14041 DMSPCL386 Missing operand(s) message when XCF invokes
*          FORMAT to initialize part of a disk. The USERINFO byte in
*          the USERSAVE area is not set by XCF before calling
*          FORMAT. 11/1/96
NAME XCF      XCF
VER 027A 0498  :1A
REP 027A 04D8  :5A
VER 0700 0498  :A5
REP 0700 04D8  :E5
VER 09AC D048  :CF
REP 09AC D498  :23
VER 09C2 D048  :E5
REP 09C2 D498  :39
VER 12DE D048  :0A
REP 12DE D498  :5E
VER 12F8 D048  :24
REP 12F8 D498  :78
VER 02A0 4700,0000  :ED
REP 02A0 9200,D060  :68
* XPF14042  (1) In file selection by date range, if a BEFORE date is
*           not specified, AFTER selection with a date of 2000 or
*           beyond not working.
*           (2) Protection exception if a 4-digit date is given
*           after the BEFORE or AFTER option, e.g., mm/dd/yyyy.
*           (3) NEWER and OLDER options might give incorrect output
*           when comparing file dates before and after year 2000.
*           11/11/96.
NAME XCMAIN X252
VER 0698 9550,D450  :AB
REP 0698 45F0,C9E4  :84
VER 09E4 0000,0000,0000,0000,0000,0000,0000  :FB
REP 09E4 9599,D450,4720,C6AA,9550,D450,07FF  :33
NAME XCMAIN CPRS
VER 12BC 940F,3000,4300,3000  :1C
REP 12BC 4300,3000,5400,A36C  :AC
VER 12D0 940F,3000,4340,3000  :70
REP 12D0 4340,3000,5440,A36C  :40
VER 236C 0000,0000  :93
REP 236C 0000,000F  :A2
NAME XCMAIN COPV8
VER 0BF0 9180,8049,4710,BC0C,F212,D8D8,7026,D203  :23
REP 0BF0 D205,D7D8,DA40,D205,D8D8,7036,4330,D7D8  :FA
VER 0C00 D8D9,7010,9200,D8DD,47F0,BC12,D205,D8D8  :20
REP 0C00 43F0,D8D8,4130,30B0,41F0,F0B0,45E0,A6F8  :E4
VER 0C10 7036,D505,DA40  :BC
REP 0C10 0700,D505,D7D8  :B2
VER 26F8 4740,A6E2,4780,A714,0630  :EF
REP 26F8 4230,D7D8,42F0,D8D8,07FE  :30
* XPF14044  Loop if input filemode = '*', output filemode = '=', and
*           a file is copied in a SFS directory.  9-11-96.
NAME XCMAIN COPV7
VER 030C 50E0  :41
REP 030C 4700  :58
* XPF14045  Avoid file not found error when overlap file is
*           filemode 3.  4-30-97.
NAME XCMAIN COPVA
VER 0686 4150,DB86,41E0,AED0  :25
REP 0686 5820,D370,47F0,20E2  :88
NAME XCMAIN CP14
VER 00E2 0000,0000,0000,0000,0000,0000,0000,0000  :F2
REP 00E2 9102,D489,4150,DB86,41E0,AED0,4780,C68E  :8E
VER 00F2 0000,0000,0000,0000,0000,0000,0000,0000  :02
REP 00F2 95F3,D295,4760,C68E,5820,D5E8,1222,4720  :BC
VER 0102 0000,0000,0000,0000,0000,0000,0000  :11
REP 0102 C68E,4150,DB86,41E0,AEE8,47F0,C68E  :99
* XPF14046  Maintain century bit in CMS FSTFLG2.  5-15-97.
*
NAME XCMAIN   COPVA
VER 17B0 95C1,D87A,4780,A8B2  :98
REP 17B0 58F0,D370,47F0,F110  :92
NAME XCMAIN   CPNOVA
VER 16E8 D205,1036,A741  :09
REP 16E8 45E0,CBBC,070E  :C5
VER 1BBC 0000,0000,0000,0000,0000,0000,0000,0000  :E7
REP 1BBC 94F7,101F,9550,A741,D205,1036,A741,07BE  :38
VER 1BCC 0000,0000,0000  :ED
REP 1BCC 9608,101F,07FE  :BF
NAME XCMAIN   CPMERC
VER 116E D205,6036,A741  :DA
REP 116E 45E0,CD78,070E  :04
VER 1D78 0000,0000,0000,0000,0000,0000,0000,0000  :A5
REP 1D78 94F7,101F,9550,A741,D205,1036,A741,07BE  :F6
VER 1D88 0000,0000,0000  :AB
REP 1D88 9608,101F,07FE  :7D
NAME XCMAIN   CP14
VER 0110 0000,0000,0000,0000,0000,0000,0000,0000  :21
REP 0110 94F7,90B7,9550,90CE,47B0,F120,9608,90B7  :23
VER 0120 0000,0000,0000,0000,0000,0000  :2D
REP 0120 95C1,D87A,4770,A7B8,47F0,A8B2  :7C
* XPF14047  Spurious insufficient memory error and invalid DMSFREE
*           call when concatenating SFS files.  More likely when
*           concatenating a mixture of SFS and minidisk files.
*           7-10-97.
NAME XCMAIN COPV7
VER 09B8 C9CE
REP 09B8 C9CC
VER 09CC C9E8
REP 09CC 1852
VER 09E6 0700
REP 09E6 1825
* XPF14048  Correct one block underestimate of disk space
*           requirement which could cause broken and uneraseable
*           COPYFILE CMSUT1 file.  Occurs when the current write
*           request simultaneously causes disk full and overflow
*           of a level 1 ptr blk.  8-8-97.
NAME XCMAIN   PRINTF
VER 0620 1B94,07D6,06E0,07F6  :9D
REP 0620 5880,D370,47F0,812C  :2D
NAME XCMAIN   CP14
VER 012C 0000,0000,0000,0000,0000,0000,0000,0000  :3D
REP 012C 4100,D498,1530,4780,814C,9502,30CC,47B0  :4D
VER 013C 0000,0000,0000,0000,0000,0000,0000,0000  :4D
REP 013C 8144,06E0,06E0,07F6,1B94,07D6,47F0,813E  :5D
VER 014C 0000,0000,0000,0000,0000,0000,0000,0000  :5D
REP 014C 1B94,07D6,06E0,07F6,980F,B1B8,078E,5890  :59
VER 015C 0000,0000,0000,0000,0000,0000,0000,0000  :6D
REP 015C D370,1B22,5021,0000,4110,1004,4600,9160  :FA
VER 016C 0000,0000  :71
REP 016C 47F0,9154  :8D
NAME XCMAIN   COPV7
VER 16FC DAD8  :C6
REP 16FC DB62  :51
NAME XCMAIN   COPVA
VER 2936 4770,8940,980F,B1B8  :F7
REP 2936 5890,D370,47F0,9154  :AE
* XPF14052  DMSCLBLK error 10100 when writing very sparse file to
*           SFS.  8-10-98.
NAME XCMAIN COPVA
VER 0FCE 4770,CFE4,5810,B0B0  :17
REP 0FCE 58F0,D370,45E0,F1D6  :5C
NAME XCMAIN CP14
VER 01D6 0000,0000,0000,0000,0000,0000,0000,0000  :E7
REP 01D6 4770,CFE4,9120,9095,5810,B0B0,078E,47F0  :BB
VER 01E6 0000  :E9
REP 01E6 CFE4  :9C
* XPF14053  Possible DMSCLBLK error 8, rc 10100, when concatenating
* files to SFS output.  06-09-99.
NAME XCMAIN COPVA
VER 191A 4700,0000  :7E
REP 191A 5020,B76C  :CA
* XPF14054  File selection options by date not working for single
*           file input specified without any wild characters.
*           7-19-99.
NAME XCMAIN COPV9
VER 1272 4120,DC48,92C3,D86A,9240,D865  :BB
REP 1272 9240,D865,5820,D370,4530,21E8  :D8
NAME XCMAIN CP14
VER 01E8 0000,0000,0000,0000,0000,0000,0000,0000  :F9
REP 01E8 91C0,D48C,92C3,D86A,4750,21FC,9110,D48E  :F8
VER 01F8 0000,0000,0000,0000,0000,0000,0000  :07
REP 01F8 4780,2200,92E6,D865,4120,DC48,07F3  :24
* XPF14055 XCOPY728I, XCOPY906E messages from XCOPY when using the
*          FORMAT option. 7/19/99
NAME XCF
VER 0994 2001  :C0
REP 0994 2002  :C1
MAINTEND
*/