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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2006.

ASZ3421 060822 61VODP NH ASEB200 v220 SUGG OK    OMCSDBSR 060823 S__-PMD
Allow user to specify file limit and wto file limit reached msg to syslog

_PROBLEM DESCRIPTION:
Customer would like message OMCSR0XXI 10000 FILE LIMIT REACHED written to
syslog so that automated operator programs can schedule additional
space reclaim jobs.  Customer would also like the ability to change
the file limit from 10000 jobs.

_PROBLEM SUMMARY:
USERS AFFECTED: All users of OMCSDBSR

_PROBLEM CONCLUSION:
RECOMMENDATION: Apply APAR fix ASZ3421.

_OPERATIONAL NOTES:

A new parameter FLIM=nnnnn has been added to OMCSDBSR to enable the user
to specify the maximum number of files that OMCSDBSR should process. The
default value is 10000. Note that values larger than 10000 will increase
the elapsed time for OMCSDBSR jobs.

The 'OMCSR0XXI 10000 FILE LIMIT REACHED' message has been changed to
'OMCSR038I nnnnn FILE LIMIT REACHED' where nnnnn is the value specified on the
FLIM parameter.  This message will be written to syslog via a WTO call.

Note that after this apar is applied the VERSION keyword will no longer work.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0757,ASZ3354,ASZ3384).
++HOLD(ASZ3421) SYSTEM FMID(ASEB200) REASON(DOC)
      COMMENT(SEE COVERLETTER FOR OPERATIONAL CHANGES AND NEW MSGS).
++ZAP(OMCSDBSR).
NAME OMCSDBSR
IDRDATA ASZ3421
*ac locn machine  code  label   oper  operands     comments
*        ------- verify changed fields
VER 007C 00000BE0               dc    a(dbswsize)
VER 046C 00000BE0               dc    a(dbswsize)
VER 18A8 00000BE0               =a(dbswsize)
VER 1E6D E7E7                   "XX"
VER 28DC 0007                   dc    al1(0,7)
VER 28DE E5C5D9E2C9D6D540       dc    cl8'VERSION '
VER 28E6 0280A0D9               dc    al1(2,dbsw2ver),s(dbsw2)
VER 3ABE 000000000000           dc    xl2(00)
VER 1FA4 00000000               patch area
VER 1E54 41000023               la    r0,l'msg
VER 2792 44F0C902               ex    r15,parsoc
VER 3AD0 00000000               patch area
VER 39B4 58F0B9C4               l     r15,=a(10000)
*        ------- increase workarea by 4 bytes for flim field dbswflim
REP 007C 00000BE4               dc    a(dbswsize+4)
REP 046C 00000BE4               dc    a(dbswsize+4)
REP 18A8 00000BE4               =a(dbswsize+4)
*        ------- change message number from 0xxI to 038I
REP 1E6D F3F8                   dc    c'38'
*        ------- replace version keyword with file limit operand flim=nnnnn
REP 28DC 0004                   dc    al1(0,4)
REP 28DE C6D3C9D440404040       dc    cl8'FLIM    '
REP 28E6 0404ABE0               dc    al1(4,l'dbswflim),s(dbswflim)
*        ------- add 038I message to wto message list
REP 3ABE F0F3F8C9               dc    c'038I'
REP 3AC2 0000                   dc    xl2(00)
*        ------- insert file limit into message
REP 1FA4 58F0ABE0      patch    l     r15,dbswflim     get file limit
REP 1FA8 4EF0A128               cvd   r15,dbswdwd
REP 1FAC 960FA12F               oi    dbswdwd+7,x'0f'
REP 1FB0 F347100BA128           unpk  11(5,r1),dbswdwd
REP 1FB6 41000023               la    r0,l'msg
REP 1FBA 47F0BE58               B     patch+4
*        ------- branch to patch
REP 1E54 47F0BFA4      patch1   b     patch
*        ------- init dbswflim field to 10000 if zero
REP 3AD0 44F0C902      patch2   ex    r15,parsoc
REP 3AD4 58F0ABE0               l     r15,dbswflim
REP 3AD8 12FF                   ltr   r15,r15
REP 3ADA 4770C796               bnz   patch3+4
REP 3ADE D203ABE0B9C4           mvc   dbswflim,=f'10000'
REP 3AE4 47F0C796               b     patch3+4
*        ------- branch to patch
REP 2792 47F0BAD0      patch3   b     patch2
*        ------- load file limit from dbswflim
REP 39B4 58F0ABE0               l     r15,dbswflim     get file limit
*LMOD OMCSDBSR