++APAR(ASZ3428). /* ----------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2006.

ASZ3428 061127 61NCSL BC ASEB200 V220 INCORROUT  OMCSDBSR 061215 O__-PMD
Block counts in messages are truncated if greater than 5 digits.

_PROBLEM DESCRIPTION:
Space reclaim messages only allow for five digits to be displayed in
block count fields. When the block count is greater than 99999 the field
is truncated. Messages this applies to are:

OMCSR021I ATTEMPTING TO FREE nnnnn BLOCKS TO ACHIEVE nn% FREESPACE
OMCSR007I DELETING  ASCHINT  #0004064 #BLKS nnnnn AGE nnnnn HRS WEIGHT:
OMCSR019I nnnnn BLOCKS FREED,OBJECTIVE nnnnn BLOCKS

_PROBLEM SUMMARY:
USERS AFFECTED: All users of OMCSDBSR

_PROBLEM CONCLUSION:
RECOMMENDATION: Apply APAR fix ASZ3428.

Messages OMCSR021I,OMCSR007I and OMCSR019I will be change to increase
the size of the block count field to seven digits.

_OPERATIONAL NOTES:
None

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0757,ASZ3354,ASZ3384,ASZ3421).
++ZAP(OMCSDBSR).
NAME OMCSDBSR
IDRDATA ASZ3428
*ac locn machine  code  label   oper  operands     comments
*        ------- verify changed fields
VER 1B7C 40C2D3D6C3D2           DC    C' BLOCK'
VER 0146 D204F01EA137           MVC   30(5,R15),$CVSDWRK+L'$CVSDWRK-5-1
*
VER 1918 40C2D3D6C3D2           DC    C' BLOCK'
VER 1935 40C2D3D6C3D2           DC    C' BLOCK'
VER 0320 D204F00BA137           MVC   11(5,R15),$CVSDWRK+L'$CVSDWRK-5-1
VER 034E D204F028A137           MVC   40(5,R15),$CVSDWRK+L'$CVSDWRK-5-1
*
VER 37D7 7BC2D3D2E240           DC    C'#BLKS '
VER 2508 D204F02DA137           MVC   45(5,R15),$CVSDWRK+L'$CVSDWRK-5-1
*
REP 1B7C E7E740C2D3D2           DC    C'XX BLK'
REP 0146 D206F01EA135           MVC   30(7,R15),$CVSDWRK+L'$CVSDWRK-7-1
*
REP 1918 E7E740C2D3D2           DC    C'XX BLK'
REP 1935 E7E740C2D3D2           DC    C'XX BLK'
REP 0320 D206F00BA135           MVC   11(7,R15),$CVSDWRK+L'$CVSDWRK-7-1
REP 034E D206F028A135           MVC   40(7,R15),$CVSDWRK+L'$CVSDWRK-7-1
*
REP 37D7 C2D3D240E7E7           DC    C'BLK XX'
REP 2508 D206F02BA135           MVC   43(7,R15),$CVSDWRK+L'$CVSDWRK-7-1
*LMOD OMCSDBSR