Feedback
 
Did this article resolve your question/issue?

   

Your feedback is appreciated.

Please tell us how we can make this article more useful. Please provide us a way to contact you, should we need clarification on the feedback provided or if you need further assistance.

Characters Remaining: 1025

 


Article

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

« Go Back

Information

 
Article Number000031841
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
Attachment 
Last Modified Date6/22/2019 12:38 AM