Domino Server.Planner is a capacity planning tool. It is a Notes
Application used to identify benchmarked server configurations that support
specified workload requirements for Domino servers.
Server.Planner provides information in several formats, but with primarily
two viewpoints:
Server configuration recommendations that satisfy server workload
requirements.
Graphical performance analysis and comparisons.
This application is distributed as three Notes database templates. Its
use requires three kinds of Domino Server.Planner databases:
Vendor Database
Analyst Database
Decision Maker Database
DISCLAIMER:
This template is intended solely to provide you with a means for matching your user requirements with performance results generated by hardware vendors. LOTUS DEVELOPMENT CORPORATION MAKES NO WARRANTIES, GUARANTEES OR REPRESENTATIONS, WHETHER EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION ANY WARRANTIES OF TITLE, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, WITH RESPECT TO THE TEMPLATE OR THE RECOMMENDATIONS PRODUCED. LOTUS WILL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER IN CONNECTION WITH YOUR USE OF OR INABILITY TO USE THIS TEMPLATE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
This application requires:
Notes 4.6 or later
Windows 95 or Windows NT 3.51 or later
Lotus Components 1.1 or later (for graphical information)
About the Domino Server.Planner Decision Maker Database
body text
The Domino Server.Planner Decision Maker Database is a synthesis of
the information in the Analyst and Vendor Databases. It is created
when the analyst performs a query on the Vendor Database and then
saves the query with the results. The associated Machine Identifier
information is stored here, along with the results of the query.
This database may also contain selected Vendor Data forms, along
with related graphs, if the analyst using the Vendor Database has
performed a Save Results.
The Decision Maker Database presents four views:
Machine Identifier
Query on Data
Vendor Data
View Results
All the forms in this database are view-only. You cannot modify
any of the data in these documents.
Each view has an action button bar for Exit and Help.
For more detailed information about this application, choose
Help - Using
This Database.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
Footlight MT Light
(List)
queryid
ListType
List
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
}d #}
}d #}
}d #}
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Set ThisDoc = Workspace.CurrentDocument
If ( Isnumeric(ThisDoc.Document.LayoutTotalProfile_1) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Query on Data"
ThisDoc.GoToField( "LayoutTotalProfile_1" )
Exit Sub
End If
If ( vFieldEntryValue <> Cint( ThisDoc.FieldGetText( sFieldName ) ) And vFieldEntryValue <> "" ) Then
Call ClearOutputFieldArea( ThisDoc )
End If
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
(.txt)