Feedback
Did this article resolve your question/issue?

   

Article

Sample ABL Code to determine how many buffers available in Alternate Buffer Pool

« Go Back

Information

 
TitleSample ABL Code to determine how many buffers available in Alternate Buffer Pool
URL Name000031841
Article Number000176712
EnvironmentProduct: OpenEdge
Version: 10.2B, 11.x
OS: All supported platforms
Question/Problem Description
How to monitor how much of the Alternate Buffer Pool has been filled?
How many blocks are still available in the Alternate Buffer Pool ?
Steps to Reproduce
Clarifying Information
Error Message
Defect/Enhancement Number
Cause
Resolution
The following code example will show a positive number of blocks still available in the Alternate Buffer Pool or will state that the alternate buffer pool is exhausted:
DEFINE VARIABLE numbuffs AS INT64 NO-UNDO. 

FIND FIRST _startup NO-LOCK. 
ASSIGN numbuffs=_startup-Alternate_buffs. 

FIND FIRST _actbuffer WHERE _buffer-id = 3. 
IF _actbuffer._buffer-osrds < numbuffs THEN 
MESSAGE "Alternate buffers remaining: " + STRING(numbuffs - _actbuffer._buffer-osrds) VIEW-AS ALERT-BOX. 
ELSE 
MESSAGE "Alternate buffer pool exhausted." VIEW-AS ALERT-BOX.

Starting in OpenEdge Release 11.5:
The _DbParams VST can be used. _DbParams replaces the _Startup VST from previous versions. The _Startup VST will be removed from the OpenEdge Database in OpenEdge 12.
Also use _actbuffer._buffer-active instead of _buffer-osrdr.
 
DEFINE VARIABLE dbbuffs AS CHAR NO-UNDO. 
DEFINE VARIABLE numbuffs AS INT64       NO-UNDO.

FIND FIRST _DbParams WHERE _DbParams._DbParams-Name = "-B2".
ASSIGN numbuffs = INTEGER(_DbParams-Value).    

FIND FIRST _actbuffer WHERE _buffer-id = 3. 
IF _actbuffer._buffer-active < numbuffs THEN 
MESSAGE "Alternate buffers remaining: " + STRING(numbuffs - _actbuffer._buffer-active) VIEW-AS ALERT-BOX. 
ELSE 
MESSAGE "Alternate buffer pool exhausted." VIEW-AS ALERT-BOX.
Workaround
Notes
Last Modified Date6/22/2019 12:38 AM
Attachment 
Files
Disclaimer The origins of the information on this site may be internal or external to Progress Software Corporation (“Progress”). Progress Software Corporation makes all reasonable efforts to verify this information. However, the information provided is for your information only. Progress Software Corporation makes no explicit or implied claims to the validity of this information.

Any sample code provided on this site is not supported under any Progress support program or service. The sample code is provided on an "AS IS" basis. Progress makes no warranties, express or implied, and disclaims all implied warranties including, without limitation, the implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the sample code is borne by the user. In no event shall Progress, its employees, or anyone else involved in the creation, production, or delivery of the code be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss) arising out of the use of or inability to use the sample code, even if Progress has been advised of the possibility of such damages.