++APAR(ASZ2985). /*-----------------------------------------------------
ASZ2985 WAS PICKED UP BY ASP0758 SHIPPED ON PUT____.

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1998.

ASZ2985 980115 61VNAB WM OMCSV2  P711 ABS0C4     ASEDAMBM 980120 S__-GSG
when d/base has many secondaries and a large file is being deleted.

_PROBLEM DESCRIPTION:
abs0c4 when running programs like OMCSDBSR or OMCSDBVR with forty or
more secondary databases defined.

_PROBLEM SUMMARY:
USERS AFFECTED: when using many secondary databases

When programs delete files the access method puts the corresponding
block numbers into a "free block number list" in memory.  When this list
becomes full, and at other times, the access method takes half of the
block numbers in the list and sets the corresponding spacemap bits on to
indicate that the blocks are now free.

When a database has secondary databases, each secondary has its own
spacemap.  When the group of blocks being freed belong to more than one
database the access method must open a spacemap for each database
involved. The worst case could require the spacemaps for the primary and
for each secondary to be open concurrently, ie. one open file per
database.

When an application program establishes a database session it specifies
how many files are allowed to be open concurrently.  If not specified on
the $DAMGR macro this value (MXFIL) defaults to 16. Both OMCSDBSR and
OMCSDBVR, each of which may delete files or free blocks, set MXFIL to
16, which may not be enough when there are more than 14 secondary
databases.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2985

ASEDAMGR will be modified to ensure that the MXFIL value is never less
than 144 and that the MXBUF value is never less than 4.

_SMP/E SITES PLEASE NOTE:

1. If you have PTF ASP0699 installed on your system, you may apply two
   or more source update APAR fixes to the same source module
   simultaneously.  If you do not have PTF ASP0699 installed, do NOT
   attempt to apply two or more source update APAR fixes to the same
   source module simultaneously - you will get incorrect results.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0711,ASZ2934).
++ZAP(ASEDAMGR).
NAME ASEDAMGR
IDRDATA ASZ2985
*   locn machine_code label--- oper- operands--- comments
VER 02E8 49F0B4E4              CH    R15,=H'1'   IS MXBUF < 1?
REP 02E8 49F0B526              CH    R15,=H'4'   IS MXBUF < 4?
VER 02F0 41F00001              LA    R15,1       DEFAULT MXBUF=1
REP 02F0 41F00004              LA    R15,4       DEFAULT MXBUF=4
VER 15AE 0000                  DS    XL2         SLACK AT END OF LTORG
REP 15AE 0090                  DC    H'144'      MINIMUM MXFIL VALUE
VER 0304 49F0B4E4              CH    R15,=H'1'   IS MXFIL < 1?
REP 0304 49F0B5AE              CH    R15,=H'144' IS MXFIL < 144?
VER 030C 41F00001              LA    R15,1       DEFAULT MXFIL=1
REP 030C 41F00090              LA    R15,144     DEFAULT MXFIL=144
*LMOD ASEDAMGR,OMCSTSSJ,OMCSIRUV