'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Terminate
Declare Sub Entering(Source As Field)
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_)
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)
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
Dim workspace As New notesuiworkspace
Dim ThisDoc As notesuidocument
Set ThisDoc = workspace.CurrentDocument
TempString$ = ThisDoc.FieldGetText("VendorList")
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
VendorList
LookupView
(List)
1S2S
LookupView
Database
0R4S6S8S10S
Specify Vendors to Include:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
FJ:_G
$TITLE
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$VendorList
$VendorList_O
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
'%INCLUDE "econsts.txt"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++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 LTSSHEET
Set Source = Bind(Objectname_)
End Sub
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
IBMPCC
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
IBMPCC
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
IBMPCC
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
COMPAQ
CMPQPL800-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
RICH2
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
CMPQPL800-200MHZ1P6-512MB
Compaq ProLiant 800 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
IBMPCC
NF7000-200MHZ2P6-1280MB
Medium
Pentium Pro (P6)/200 x 2 (SMP)
NT 4.0
LayoutServerTasks
4S5S
NF7000-200MHZ2P6-1280MB
Netfinity 7000 with 2 CPUs (200 MHZ Pentium Pro), 1280 MB RAM, and 10 Hard Drives (4.5 GB) in a RAID5 array.
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click( Source As Button )
Declare Function ProcessOneTask( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Sub Initialize
Declare Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
Declare Function VerifyForm( sOSPlatform As String ) As Integer
Declare Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function ProcessMultipleTasks( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Function ProcessMultipleTasksCore( sSearchDB As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function UserTaskCount( ThisDoc ) As Integer
Declare Sub ZeroFieldOut( ThisDoc As NotesUIDocument, sFieldNameOut As String )
Declare Function ExtractVendorName( sSearchDB As String ) As String
Declare Sub UserTaskArrayInitWhole ( doc As NotesDocument )
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "pstoarr.lss"
Const MB_YESNO = 4
Const IDYES = 6
Const IDNO = 7
Const MB_ICONEXCLAMATION = 48
Const MB_ICONINFORMATION = 64
Const MB_ICONQUESTION = 32
Const numscripts = 10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click( Source As Button )
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim Session As New NotesSession
Dim CurrentView As NotesView
Dim doc As NotesDocument
Dim sOSPlatformWholeList As String
Dim sServerTasks As String
Dim VendorDBBuffer As String
Dim iPositionOfChar As Integer
Dim iOutputCount As Integer
Dim sSearchDB As String
Set CurrentDB = Session.CurrentDatabase
Set CurrentView = CurrentDB.GetView( "(List)" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.ListType( 0 ) <> "Database"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Vendor Database List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
Set ThisDoc = Workspace.CurrentDocument
' extract rule of thumb information
Set CurrentView = CurrentDB.GetView( "Conversion Guidelines" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.Profile( 0 ) <> "Default"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
vtemp = doc.Adjust_ReplHub
nAdjust_ReplHub = vtemp( 0 )
vtemp = doc.Adjust_MailHub
nAdjust_MailHub = vtemp( 0 )
Call UserTaskArrayInitWhole (doc)
If VerifyForm( sOSPlatformWholeList ) = False Then
Exit Sub
End If
Set ListDoc = CreateList( ) ' insure List form is present and up-to-date
If iVendorCount > numoutputlines Then 'currently limit set at 10 output values
Messagebox "The number of output information exceeds the current display. You should adjust your query specifications.", MB_ICONEXCLAMATION, "Output Limit Reached"
'iTotalCount = iTotalCount + iOutputCount ' roll up total across all vendors
Wend
ProcessOneTask = iTotalCount
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:SearchForPossibleMatches:2:8
Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
' iOutputCount keeps track of number of output entries
If ThisDoc.FieldGetText( "LayoutOSPlatform" ) = "" Then
Messagebox "Specify OS Platform(s)", MB_ICONEXCLAMATION, "Query on Data"
ThisDoc.Gotofield( "LayoutOSPlatform" )
End If
VerifyForm = True
End Function
'++LotusScript Development Environment:2:1:QueryOnDatabase:1:8
Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
' iOutputCount keeps track of number of output entries
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim DataCollection As NotesDocumentCollection
Dim MachineIDDoc As NotesDocument
Dim DataDoc As NotesDocument
Dim RTItem As NotesRichTextItem
Dim sFieldNameOutOut As String
Dim iPositionOfChar As Integer
Dim iSkipCount As Integer
Dim bZeroBase As Integer
Dim bMaxBase As Integer
Dim sCPUInfo As String
Dim sMachineID2 As String
Dim vVendorDB As Variant
Dim vTemp1 As Variant
Dim vTemp2 As Variant
Dim nUpper As Single
Dim nLower As Single
Dim nSearchTolerance As Single
Dim dDataUPercentFast As Double
Dim dDataUPercentMedium As Double
Dim dLayoutPercentRange As Double
Set ThisDoc = Workspace.CurrentDocument
temp = Trim( sSearchDB )
sMachineID2 = sMachineID ' save off original machine name
Set VendorDB = New NotesDatabase( "", Trim( sSearchDB ) )
bQueryFlag = True
bZeroBase= False ' search begins at user count > 0
bMaxBase = True ' search does have a max user count
iSkipCount = 0 ' number of dups found
' call central routine to query on specified database for specified task
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click( Source As Button )
Declare Function ProcessOneTask( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Sub Initialize
Declare Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
Declare Function VerifyForm( sOSPlatform As String ) As Integer
Declare Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function ProcessMultipleTasks( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Function ProcessMultipleTasksCore( sSearchDB As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function UserTaskCount( ThisDoc ) As Integer
Declare Sub ZeroFieldOut( ThisDoc As NotesUIDocument, sFieldNameOut As String )
Declare Function ExtractVendorName( sSearchDB As String ) As String
Declare Sub UserTaskArrayInitWhole ( doc As NotesDocument )
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "pstoarr.lss"
Const MB_YESNO = 4
Const IDYES = 6
Const IDNO = 7
Const MB_ICONEXCLAMATION = 48
Const MB_ICONINFORMATION = 64
Const MB_ICONQUESTION = 32
Const numscripts = 10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click( Source As Button )
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim Session As New NotesSession
Dim CurrentView As NotesView
Dim doc As NotesDocument
Dim sOSPlatformWholeList As String
Dim sServerTasks As String
Dim VendorDBBuffer As String
Dim iPositionOfChar As Integer
Dim iOutputCount As Integer
Dim sSearchDB As String
Set CurrentDB = Session.CurrentDatabase
Set CurrentView = CurrentDB.GetView( "(List)" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.ListType( 0 ) <> "Database"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Vendor Database List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
Set ThisDoc = Workspace.CurrentDocument
' extract rule of thumb information
Set CurrentView = CurrentDB.GetView( "Conversion Guidelines" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.Profile( 0 ) <> "Default"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
vtemp = doc.Adjust_ReplHub
nAdjust_ReplHub = vtemp( 0 )
vtemp = doc.Adjust_MailHub
nAdjust_MailHub = vtemp( 0 )
Call UserTaskArrayInitWhole (doc)
If VerifyForm( sOSPlatformWholeList ) = False Then
Exit Sub
End If
Set ListDoc = CreateList( ) ' insure List form is present and up-to-date
If iVendorCount > numoutputlines Then 'currently limit set at 10 output values
Messagebox "The number of output information exceeds the current display. You should adjust your query specifications.", MB_ICONEXCLAMATION, "Output Limit Reached"
'iTotalCount = iTotalCount + iOutputCount ' roll up total across all vendors
Wend
ProcessOneTask = iTotalCount
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:SearchForPossibleMatches:2:8
Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
' iOutputCount keeps track of number of output entries
If ThisDoc.FieldGetText( "LayoutOSPlatform" ) = "" Then
Messagebox "Specify OS Platform(s)", MB_ICONEXCLAMATION, "Query on Data"
ThisDoc.Gotofield( "LayoutOSPlatform" )
End If
VerifyForm = True
End Function
'++LotusScript Development Environment:2:1:QueryOnDatabase:1:8
Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
' iOutputCount keeps track of number of output entries
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim DataCollection As NotesDocumentCollection
Dim MachineIDDoc As NotesDocument
Dim DataDoc As NotesDocument
Dim RTItem As NotesRichTextItem
Dim sFieldNameOutOut As String
Dim iPositionOfChar As Integer
Dim iSkipCount As Integer
Dim bZeroBase As Integer
Dim bMaxBase As Integer
Dim sCPUInfo As String
Dim sMachineID2 As String
Dim vVendorDB As Variant
Dim vTemp1 As Variant
Dim vTemp2 As Variant
Dim nUpper As Single
Dim nLower As Single
Dim nSearchTolerance As Single
Dim dDataUPercentFast As Double
Dim dDataUPercentMedium As Double
Dim dLayoutPercentRange As Double
Set ThisDoc = Workspace.CurrentDocument
temp = Trim( sSearchDB )
sMachineID2 = sMachineID ' save off original machine name
Set VendorDB = New NotesDatabase( "", Trim( sSearchDB ) )
bQueryFlag = True
bZeroBase= False ' search begins at user count > 0
bMaxBase = True ' search does have a max user count
iSkipCount = 0 ' number of dups found
' call central routine to query on specified database for specified task
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click( Source As Button )
Declare Function ProcessOneTask( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Sub Initialize
Declare Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
Declare Function VerifyForm( sOSPlatform As String ) As Integer
Declare Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function ProcessMultipleTasks( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Function ProcessMultipleTasksCore( sSearchDB As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
Declare Function UserTaskCount( ThisDoc ) As Integer
Declare Sub ZeroFieldOut( ThisDoc As NotesUIDocument, sFieldNameOut As String )
Declare Function ExtractVendorName( sSearchDB As String ) As String
Declare Sub UserTaskArrayInitWhole ( doc As NotesDocument )
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "pstoarr.lss"
Const MB_YESNO = 4
Const IDYES = 6
Const IDNO = 7
Const MB_ICONEXCLAMATION = 48
Const MB_ICONINFORMATION = 64
Const MB_ICONQUESTION = 32
Const numscripts = 10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click( Source As Button )
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim Session As New NotesSession
Dim CurrentView As NotesView
Dim doc As NotesDocument
Dim sOSPlatformWholeList As String
Dim sServerTasks As String
Dim VendorDBBuffer As String
Dim iPositionOfChar As Integer
Dim iOutputCount As Integer
Dim sSearchDB As String
Set CurrentDB = Session.CurrentDatabase
Set CurrentView = CurrentDB.GetView( "(List)" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.ListType( 0 ) <> "Database"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Vendor Database List Information Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
Set ThisDoc = Workspace.CurrentDocument
' extract rule of thumb information
Set CurrentView = CurrentDB.GetView( "Conversion Guidelines" )
Set doc = CurrentView.GetFirstDocument
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
While doc.Profile( 0 ) <> "Default"
Set doc = CurrentView.GetNextDocument( doc )
If doc Is Nothing Then
Messagebox "Conversion Guidelines Document Missing", MB_ICONEXCLAMATION, "Query on Data"
Exit Sub
End If
Wend
vtemp = doc.Adjust_ReplHub
nAdjust_ReplHub = vtemp( 0 )
vtemp = doc.Adjust_MailHub
nAdjust_MailHub = vtemp( 0 )
Call UserTaskArrayInitWhole (doc)
If VerifyForm( sOSPlatformWholeList ) = False Then
Exit Sub
End If
Set ListDoc = CreateList( ) ' insure List form is present and up-to-date
If iVendorCount > numoutputlines Then 'currently limit set at 10 output values
Messagebox "The number of output information exceeds the current display. You should adjust your query specifications.", MB_ICONEXCLAMATION, "Output Limit Reached"
'iTotalCount = iTotalCount + iOutputCount ' roll up total across all vendors
Wend
ProcessOneTask = iTotalCount
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:SearchForPossibleMatches:2:8
Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
' iOutputCount keeps track of number of output entries
If ThisDoc.FieldGetText( "LayoutOSPlatform" ) = "" Then
Messagebox "Specify OS Platform(s)", MB_ICONEXCLAMATION, "Query on Data"
ThisDoc.Gotofield( "LayoutOSPlatform" )
End If
VerifyForm = True
End Function
'++LotusScript Development Environment:2:1:QueryOnDatabase:1:8
Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCount As Integer ) As Integer
' iOutputCount keeps track of number of output entries
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim DataCollection As NotesDocumentCollection
Dim MachineIDDoc As NotesDocument
Dim DataDoc As NotesDocument
Dim RTItem As NotesRichTextItem
Dim sFieldNameOutOut As String
Dim iPositionOfChar As Integer
Dim iSkipCount As Integer
Dim bZeroBase As Integer
Dim bMaxBase As Integer
Dim sCPUInfo As String
Dim sMachineID2 As String
Dim vVendorDB As Variant
Dim vTemp1 As Variant
Dim vTemp2 As Variant
Dim nUpper As Single
Dim nLower As Single
Dim nSearchTolerance As Single
Dim dDataUPercentFast As Double
Dim dDataUPercentMedium As Double
Dim dLayoutPercentRange As Double
Set ThisDoc = Workspace.CurrentDocument
temp = Trim( sSearchDB )
sMachineID2 = sMachineID ' save off original machine name
Set VendorDB = New NotesDatabase( "", Trim( sSearchDB ) )
bQueryFlag = True
bZeroBase= False ' search begins at user count > 0
bMaxBase = True ' search does have a max user count
iSkipCount = 0 ' number of dups found
' call central routine to query on specified database for specified task
'Call ThisDoc.FieldSetText( "Form", "Query on Data" )
' check to see if query previously saved
If ThisDoc.FieldGetText( "QueryAlreadyExists" ) = "1" Then
boxtype& = MB_YESNO + MB_ICONQUESTION
answer% = Messagebox( "This Query Previously Saved. Overwrite? Selecting Yes will 'Overwrite' the currently saved query. Selecting 'No' will create and save a new query.", boxtype&, "Save Query" )
CostChart.TitleText = "System Cost( List ) - Sort By Cost( Ascending Order )"
End If
ThisDoc.GoToField( "LayoutCostChart" )
Exit Sub
ExitNow:
Messagebox "Need to Generate Original Cost Graph", MB_ICONEXCLAMATION, "Graph Cost Information"
Exit Sub
End Sub
New Button
Need a newer version of Notes to execute this button.
0S0E
Sort by Cost
Systems Not Meeting Criteria
Vendor
Machine ID
Reason
vendor_1
machid_1
reason_1
vendor_2
machid_2
reason_2
vendor_3
machid_3
reason_3
vendor_4
machid_4
reason_4
vendor_5
machid_5
reason_5
vendor_6
machid_6
reason_6
vendor_7
machid_7
reason_7
vendor_8
machid_8
reason_8
vendor_9
machid_9
reason_9
vendor_10
machid_10
reason_10
vendor_11
machid_11
reason_11
vendor_12
machid_12
reason_12
vendor_13
machid_13
reason_13
vendor_14
machid_14
reason_14
vendor_15
machid_15
reason_15
vendor_16
machid_16
reason_16
vendor_17
machid_17
reason_17
vendor_18
machid_18
reason_18
vendor_19
machid_19
reason_19
vendor_20
machid_20
reason_20
vendor_21
machid_21
reason_21
vendor_22
machid_22
reason_22
vendor_23
machid_23
reason_23
vendor_24
machid_24
reason_24
vendor_25
machid_25
reason_25
Projected Growth Analysis:
Percentage Growth Projected:
PerGrowthProj
PerGrowthProj_1The percentage value is applied to the user count values specified within this query.
Vendor
Machine ID
Meets Current Requirements?
Meets Growth Requirements?
gvendor_1
gmachid_1
greason_1
greasong_1
gvendor_2
gmachid_2
greason_2
greasong_2
gvendor_3
gmachid_3
greason_3
greasong_3
gvendor_4
gmachid_4
greason_4
greasong_4
gvendor_5
gmachid_5
greason_5
greasong_5
gvendor_6
gmachid_6
greason_6
greasong_6
gvendor_7
gmachid_7
greason_7
greasong_7
gvendor_8
gmachid_8
greason_8
greasong_8
gvendor_9
gmachid_9
greason_9
greasong_9
gvendor_10
gmachid_10
greason_10
greasong_10
gvendor_11
gmachid_11
greason_11
greasong_11
gvendor_12
gmachid_12
greason_12
greasong_12
gvendor_13
gmachid_13
greason_13
greasong_13
gvendor_14
gmachid_14
greason_14
greasong_14
gvendor_15
gmachid_15
greason_15
greasong_15
gvendor_16
gmachid_16
greason_16
greasong_16
gvendor_17
gmachid_17
greason_17
greasong_17
gvendor_18
gmachid_18
greason_18
greasong_18
gvendor_19
gmachid_19
greason_19
greasong_19
gvendor_20
gmachid_20
greason_20
greasong_20
gvendor_21
gmachid_21
greason_21
greasong_21
gvendor_22
gmachid_22
greason_22
greasong_22
gvendor_23
gmachid_23
greason_23
greasong_23
gvendor_24
gmachid_24
greason_24
greasong_24
gvendor_25
gmachid_25
greason_25
greasong_25
Mailing Information:
SendTo}
0S0E
SendToList of primary people to send memo.
CopyTo}
CopyToList of people to send a copy of the memo.
BlindCopyTo
BlindCopyToList of undisclosed people to send copies of memo.
Subject:
PhoneCaller
Phone Call:
PhoneCaller
Subject
SubjectSubject of memo.
Delivery Priority:
Normal
DeliveryPriorityPriority: Normal, High (immediate delivery), Low (overnight delivery).
High|HLow|LNormal|N
Delivery Report:
DeliveryReportConditions upon which failure report will be sent back to you.
Basic|BConfirmed|CNo Report|N
Return Receipt:
ReturnReceipt
ReturnReceipt
ReturnReceiptReturn receipt requested.
No|0Yes|1
Query Information
Author:
0S0E
LayoutAuthorOptional. Author of this document. Defaults to current user.
Creation Date:
OutCreationDateOptional. Date this form initially created. Defaults to current date.
Modification Date:
LayoutDateOptional. Date this form last changed. Defaults to current date.
Comments:
OutCommentsOptional. Any additional comments about this form.
Miscellaneous
LayoutResponseSheet
LayoutCostSheet
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function ProcessOneTask( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Sub Initialize
Declare Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
Declare Function VerifyForm( sOSPlatform As String ) As Integer
Declare Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCounty As Integer ) As Integer
Declare Function ProcessMultipleTasks( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
Declare Function ProcessMultipleTasksCore( sSearchDB As String, sOSPlatformWholeList As String, iOutputCounta As Integer ) As Integer
Declare Function UserTaskCount( ThisDoc ) As Integer
Declare Sub ZeroFieldOut( ThisDoc As NotesUIDocument, sFieldNameOut As String )
Declare Function ExtractVendorName( sSearchDB As String ) As String
Declare Sub UserTaskArrayInitWhole ( doc As NotesDocument )
Declare Sub Click( Source As Button )
Declare Sub MainPathQuery( growthflag As Integer )
Declare Sub Objectexecute(Source As Button, Data As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "pstoarr.lss"
Const MB_YESNO = 4
Const IDYES = 6
Const IDNO = 7
Const MB_ICONEXCLAMATION = 48
Const MB_ICONINFORMATION = 64
Const MB_ICONQUESTION = 32
Const numscripts = 10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
On Event Objectexecute From Source Call Objectexecute
End Sub
'++LotusScript Development Environment:2:1:ProcessOneTask:1:8
Function ProcessOneTask( sVendorDBBuffer As String, sOSPlatformWholeList As String ) As Integer
' accept query parameters for one task
' return results which will then need to be processed
' make sure there is a reason code inserted in each value
For z = 0 To (iRejectListCount - 1)
If sReason( z ) = "" Then
sReason( z ) = sReason2 + ": " + sLayoutServerTasks
End If
Next
'Call ThisDoc.FieldSetText("E1", "No" )
' now do percentage growth inc
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:SearchForPossibleMatches:2:8
Function SearchForPossibleMatches( sLayoutServerTasks As String, sSearchDB As String, sMachineID As String, sUserCount As String, sOther11 As String, sOther21 As String, bZeroBase As Integer, bMaxBase As Integer ) As NotesDocumentCollection
' iOutputCount keeps track of number of output entries
Dim ThisDoc As NotesUIDocument
Dim Workspace As New NotesUIWorkspace
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim VendorDB As NotesDatabase
Dim DataColl As NotesDocumentCollection
Dim DataColl2 As NotesDocumentCollection
Dim VendorDoc As NotesDocument
Dim bMatchFound As Integer
Dim SearchFormula2 As String
Dim SearchFormula2Begin As String
Set ThisDoc = Workspace.CurrentDocument
Set VendorDB = New NotesDatabase( "", sSearchDB )
' process specific database
' Need to dynamically build query
' will build 'shadow' query for distinguishing the reason why a machine wasn't selected
' keep track of vendors search. decrement vendor count for each one searched
' must make sure each vendor is represented
If i = numoutputlines Then
i = 1 ' wrap around
Else
i = i + 1
End If
Set SearchForPossibleMatches = VendorDB.Search( SearchFormula$, DateTime, 0 )
' now do level 2 error checking, checking on individual componenets meeting criteria
' for each machine returned at this point, meets medium level criteria, will list as found in the reason code
' do another pass afterwards, any machine not listed as found in the reason code and iDisplayable = False, then reason 2 code inserted and iDisplayable = True
' need to determine if servertasks is always loaded
Dim z As Integer
Dim y As Integer
Dim sMachineIDx As String
bMatchFound = False
If iRejectListCount = 0 Then
'Messagebox " SearchForPossibleMatches; why is reject list count = 0"
Elseif bProjectGrowthSelected = False Then ' only do this processing on the first go round, not on the growth projections
' compare to existing list
' first clean out the found status, for this vendor
For z = 0 To ( iRejectListCount - 1 )
' first need to reset the reason code from found, for this vendor - as it needs to be found for all scripts
sTempString$ = ExtractVendorName( sSearchDB ) ' need to compare to sVendorName( z ), why no match
If sVendorName( z ) = ExtractVendorName( sSearchDB ) Then ' match on vendor name, compare saved value to current vendor name
If sReason( z ) = "Found" Then
sReason( z) = ""
iDisplayable( z ) = False
End If
End If
Next z
' next need to isolate the possible matches
For z = 0 To ( iRejectListCount - 1)
sTempString$ = ExtractVendorName( sSearchDB ) ' need to compare to sVendorName( z ), why no match
If sVendorName( z ) = ExtractVendorName( sSearchDB ) Then ' match on vendor name, compare saved value to current vendor name
If SearchForPossibleMatches.Count > 0 Then
For y = 1 To SearchForPossibleMatches.Count
Set DataDoc = SearchForPossibleMatches.GetNthDocument( y )
sMachineIDx = DataDoc.DataUServerID( 0 )
If sMachID( z ) = sMachineIDx And Len( sReason( z ) ) < 2 Then ' match on machine name, make sure nothing inserted before
sReason( z ) = "Found"
bMatchFound = True ' added to list
End If
Next
End If
End If
Next z
' now try and identify which have no listing
For z = 0 To ( iRejectListCount - 1)
sTempString$ = ExtractVendorName( sSearchDB ) ' need to compare to sVendorName( z ), why no match
If sVendorName( z ) = ExtractVendorName( sSearchDB ) Then ' match on vendor name, compare saved value to current vendor name
' no datapoints meet the criteria, mark as with reason 1 or 2
' keep same prefix for search formula, change for possible machines
If ( Cint( ThisDoc.FieldGetText( "PerGrowthProj" ) ) ) > 100 Or Len( ThisDoc.FieldGetText( "PerGrowthProj" ) ) = 0 Then
Messagebox "Specify Percentage Growth Projected, within valid range; >=0 and <= 100", MB_ICONEXCLAMATION, "Query on Data"
ThisDoc.Gotofield( "PerGrowthProj" )
Else
' set flag that something is specified
bProjectGrowthChecked = True
End If
End If
VerifyForm = True
End Function
'++LotusScript Development Environment:2:1:QueryOnDatabase:1:8
Function QueryOnDatabase( sSearchDB As String, sMachineID As String, sLayoutServerTasks As String, sUserCount As String, sOther11 As String, sOther21 As String, sOSPlatformWholeList As String, iOutputCounty As Integer ) As Integer
' iOutputCounty keeps track of number of output entries
Dim Workspace As New NotesUIWorkspace
Dim ThisDoc As NotesUIDocument
Dim DateTime As New NotesDateTime( "1/1/96" )
Dim DataCollection As NotesDocumentCollection
Dim DataCollection2 As NotesDocumentCollection
Dim DataDoc As NotesDocument
Dim MachineDoc As NotesDocument
Dim RTItem As NotesRichTextItem
Dim sFieldNameOutOut As String
Dim iPositionOfChar As Integer
Dim iSkipCount As Integer
Dim bZeroBase As Integer
Dim bMaxBase As Integer
Dim sCPUInfo As String
Dim sMachineID2 As String
Dim vVendorDB As Variant
Dim vTemp1 As Variant
Dim vTemp2 As Variant
Dim nUpper As Single
Dim nLower As Single
Dim nSearchTolerance As Single
Dim dDataUPercentFast As Double
Dim dDataUPercentMedium As Double
Dim dLayoutPercentRange As Double
Set ThisDoc = Workspace.CurrentDocument
temp = Trim( sSearchDB )
sMachineID2 = sMachineID ' save off original machine name
Set VendorDB = New NotesDatabase( "", Trim( sSearchDB ) )
bQueryFlag = True
bZeroBase= False ' search begins at user count > 0
bMaxBase = True ' search does have a max user count
iSkipCount = 0 ' number of dups found
' determine if estimated records should be included
If bProjectGrowthSelected = False Then ' verfication for first pass only
' see if there are any entries which haven't been accounted for. There should be an entry in sReason for each one.
For i = 0 To ( iRejectListCount - 1 )
If sReason( i ) = "Found" Then
sReason( i ) = ""
Elseif sReason( i ) = "" Then
sReason( i ) = sReason2 + ": " + sLayoutServerTasks
iDisplayable( i ) = True
End If
Next i
End If
' assumes there's at least one entry
For i = 1 To DataCollection.count
If bProjectGrowthSelected = False Then 'verification for first pass only
If ( iVendorCount + iOutputCounty ) = numoutputlines Then
If bAlreadyDisplayedWarning = False Then
Messagebox "Warning: Reached Limit on entries to be added to the Server Analysis Results. Need to verify the systems listed in the Systems Not Meeting Criteria Section as a result.", MB_ICONEXCLAMATION, "Output Verification"
bAlreadyDisplayedWarning = True
End If
QueryOnDatabase = iOutputCounty
Exit Function
End If
Set DataDoc = DataCollection.GetNthDocument( i )
' verify that machine is not already specified
sMachineID= DataDoc.DataUServerID( 0 )
SkipOver = False
For j = 1 To iOutputCounty
sFieldNameOutOut = "OutResults"& Cstr( j )
If sMachineID = ThisDoc.FieldGetText( sFieldNameOutOut ) Then
' now need to verify that vendors are not the same either
If iVendorCount > numoutputlines Then 'currently limit set at 10 output values
Messagebox "The number of output information exceeds the current display. You should adjust your query specifications.", MB_ICONEXCLAMATION, "Output Limit Reached"
iCurrentCount = iOutputCountb 'keep track of what was the number of entries for current
'Call ThisDoc.FieldSetText("E2", "No" )
If iOutputCountb = 0 And iRejectListCount > 0 Then
Messagebox " No Query Results Found. Please check the " + {"} + "Systems Not Meeting Criteria" + {"} + " Section to get a better understanding of why.", MB_ICONEXCLAMATION, "Query Results"
ThisDoc.GoToField( "vendor_1")
' now display machines in reject list; compare machines found in result list, to machines in reject list which are displayable, display those with a reason
Elseif iOutputCountb = 0 And iRejectListCount = 0 Then
Messagebox " No Machine ID Forms found in Vendor Database(s).", MB_ICONEXCLAMATION, "Query Results"
End If
' go through the list again, anything that doesn't have a reason code and is iDisplayable = False
For i = 0 To ( iRejectListCount - 1 )
If iDisplayable( i ) = False And Len( sReason( i ) ) < 6 Then
sGrowthFieldName = "gvendor_" & Cstr( j ) ' somehow an extra entry is being inserted, blanks for vendor & machine, reasons for sgreasong & sgreason, happens on the last
' *** somehow iGrowthListCount is incremented one extra time
If sgVendorName( i ) <> " " Then
Call ThisDoc.FieldSetText( sGrowthFieldName, sgVendorName( i ) )
sGrowthFieldName = "gmachid_" & Cstr( j )
Call ThisDoc.FieldSetText( sGrowthFieldName, sgMachID( i ) )
sGrowthFieldName = "greason_" & Cstr( j )
Call ThisDoc.FieldSetText( sGrowthFieldName, sgReason( i ) )
sGrowthFieldName = "greasong_" & Cstr( j )
Call ThisDoc.FieldSetText( sGrowthFieldName, sgReasong( i ) )
Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONEXCLAMATION, "Graph Response Information"
Elseif Err = 4412 Then
Messagebox "The " + {"} + "Graphical Information" + {"} + " and " + {"} + "Miscellaneous" + {"} + " Sections must be expanded to insert the graphical information. Currently, one or both of the sections are collapsed.", MB_ICONEXCLAMATION, "Graph Response Information"
Else
Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONEXCLAMATION, "Graph Response Information"
Conversion Guidelines'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:2:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_ReplHub) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_ReplHub" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_MailHub) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_MailHub" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_Mail) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_Mail" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_Database) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_Database" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_MailDB) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_MailDB" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_Groupware) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_Groupware" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_CS) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_CS" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_WW) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_WW" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_WB) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_WB" )
End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(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
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.Adjust_WB) = True ) Then
Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Conversion Guidelines"
ThisDoc.GoToField( "Adjust_WB" )
End If
End Sub
Default
Profile
Body Text
If you wish to adjust the server selection algorithms for specific workload types to reflect real world usage, change the table values below. The default values reflect the laboratory environment of the benchmark scenarios where the vendor data was created.
The initial value for each workload is 1.00, resulting in no actual adjustment of the workload results during the query. You can adjust the conversion factors of any or all of the workloads. You can use fractional numbers (for example, 1.5), or numbers less than 1.00, to adjust for better-than-benchmark adjustment.
For example if you wish to apply a rule of thumb in which your actual mail users consume twice the resources as a benchmark mail user, then increase the Mail Adjustment amount to 2.0.
Workload Weighting Table:
Script
Adjustment Amount
Replication Hub
Adjust_ReplHubEnter multiplier for number-of-users adjustment for this workload.
Mail Routing Hub
Adjust_MailHubEnter multiplier for number-of-users adjustment for this workload.
Adjust_MailEnter multiplier for number-of-users adjustment for this workload.
Database
Adjust_DatabaseEnter multiplier for number-of-users adjustment for this workload.
Mail & Database
Adjust_MailDBEnter multiplier for number-of-users adjustment for this workload.
Groupware
Adjust_GroupwareEnter multiplier for number-of-users adjustment for this workload.
Calendar & Scheduling
Adjust_CSEnter multiplier for number-of-users adjustment for this workload.
Web Walker
Adjust_WWEnter multiplier for number-of-users adjustment for this workload.
Web Buyer
Adjust_WBEnter multiplier for number-of-users adjustment for this workload.
R5 Mail & Database
Adjust_R5MDBEnter multiplier for number-of-users adjustment for this workload.
Categori_zeu
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Exit
0S0E
Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++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 BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
IBMPCC
PCS325-233MHZ1P6-384MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
IBMPCC
PCS330-300MHZ1PII-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
PCS325-233MHZ1P6-384MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
PCS330-300MHZ1PII-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
CAROL
CMPQPL5000-200MHZ1P6-512MB
NotesBench workload not generated for this machinea: Calendar & Scheduling
CAROL
CMPQS200PII-233MHZ1P6-384MB
NotesBench workload not generated for this machinea: Calendar & Scheduling
PCS704-200MHZ1P6-512MB
PCS704-200MHZ1P6-512MB
PCS325-233MHZ1P6-384MB
NF3500-233MHZ1P6-320MB
IBMPCC
PCS704-200MHZ1P6-512MB
IBMPCC
CAROL
PCS704-200MHZ1P6-512MB
CAROL
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
PCS325-233MHZ1P6-384MB
NotesBench workload not generated for this machine: Calendar & Scheduling
NF3500-233MHZ1P6-320MB
NotesBench workload not generated for this machine: Calendar & Scheduling
IBMPCC
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
IBMPCC
PCS325-233MHZ1P6-384MB
NotesBench workload not generated for this machine: Calendar & Scheduling
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload not generated for this machine: Calendar & Scheduling
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload not generated for this machine: Calendar & Scheduling
IBMPCC
NF5500-350MHZ2PII-1024MB
NotesBench workload not generated for this machine: Calendar & Scheduling
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Calendar & Scheduling
PCS325-233MHZ1P6-384MB
NotesBench workload not generated for this machine: Calendar & Scheduling
NF3500-233MHZ1P6-320MB
NotesBench workload not generated for this machine: Calendar & Scheduling
IBMPCC
PCS330-300MHZ1PII-512MB
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
IBMPCC
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
IBMPCC
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
IBMPCC
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
IBMPCC
NF7000-200MHZ2P6-1280MB
Pentium Pro (P6)/200 x 2 (SMP)
NT 4.0
IBMPCC
NF5500-350MHZ2PII-1024MB
Pentium II (PII)/350 x 2 (SMP)
NT 4.0
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
NF7000-200MHZ2P6-1280MB
Netfinity 7000 with 2 CPUs (200 MHZ Pentium Pro), 1280 MB RAM, and 10 Hard Drives (4.5 GB) in a RAID5 array.
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
Netfinity 5500 with 2 CPUs (350 MHz Pentium II) and 1024 MB RAM. The system included 10 hard disk drives (4.5 GB each) that were configured into one array. The array was partitioned such that the first logical drive (C:) was a RAID1 volume of 4 GB (for OS and Domino executables). The second logical drive (D:) was a RAID5 volume of the remaining free disk space (approximately 32 GB). The standard integrated network adapter on the system was used to connect to the 10 MBits Ethernet network.
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
IBMPCC
PCS704-200MHZ1P6-512MB
PCS325-233MHZ1P6-384MB
NF3500-233MHZ1P6-320MB
IBMPCC
PCS325-233MHZ1P6-384MB
IBMPCC
NF3500-233MHZ1P6-320MB
IBMPCC
PCS330-300MHZ1PII-512MB
IBMPCC
NF7000-200MHZ2P6-1280MB
IBMPCC
NF5500-350MHZ2PII-1024MB
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
12/09/98 10:29:41 PM Richard Kanosky/Iris deleted Carol Zimmet/Iris
12/09/98 10:29:38 PM Richard Kanosky/Iris deleted Richard Kanosky/Iris
12/04/98 07:33:08 PM Richard Kanosky/Iris updated LocalDomainServers
12/04/98 07:22:32 PM Richard Kanosky/Iris updated Carol Zimmet/Iris
12/04/98 07:22:10 PM Richard Kanosky/Iris added Carol Zimmet/Iris
12/04/98 07:22:10 PM Richard Kanosky/Iris deleted */Iris
12/04/98 07:21:49 PM Richard Kanosky/Iris updated */Iris
12/04/98 07:21:04 PM Richard Kanosky/Iris added */Iris
12/04/98 07:20:47 PM Richard Kanosky/Iris updated Parallan/CAM/Notes
12/04/98 07:20:05 PM Richard Kanosky/Iris added Parallan/CAM/Notes
12/04/98 07:18:24 PM Richard Kanosky/Iris updated Richard Kanosky/Iris
12/04/98 07:18:13 PM Richard Kanosky/Iris added Richard Kanosky/Iris
08/21/97 02:23:19 PM Carol Zimmet/Iris updated [LocalDomainServers]
08/21/97 02:23:15 PM Carol Zimmet/Iris updated [OtherDomainServers]
08/21/97 02:23:04 PM Carol Zimmet/Iris added [OtherDomainServers]
08/21/97 02:23:04 PM Carol Zimmet/Iris deleted [-OtherDomainServers-]
08/21/97 02:22:47 PM Carol Zimmet/Iris added [LocalDomainServers]
08/21/97 02:22:47 PM Carol Zimmet/Iris deleted [-LocalDomainServers-]
08/21/97 02:22:20 PM Carol Zimmet/Iris updated [-OtherDomainServers-]
08/21/97 02:22:12 PM Carol Zimmet/Iris added [-OtherDomainServers-]
NotesBench workload results not in range for individual results comparison: Mail
PCS325-233MHZ1P6-384MB
NotesBench workload results not in range for individual results comparison: Mail
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Mail
PCS704-200MHZ1P6-512MB
NotesBench workload results not generated for this platform: Platform: Solaris 2.5, Workload:
PCS325-233MHZ1P6-384MB
NotesBench workload results not generated for this platform: Platform: Solaris 2.5, Workload:
NF3500-233MHZ1P6-320MB
NotesBench workload results not generated for this platform: Platform: Solaris 2.5, Workload:
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
IBMPCC
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
IBMPCC
NF3500-233MHZ1P6-320MB
Pentium II/233 x 1
NT 4.0
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
IBMPCC
NF7000-200MHZ2P6-1280MB
Pentium Pro (P6)/200 x 2 (SMP)
NT 4.0
IBMPCC
NF5500-350MHZ2PII-1024MB
Pentium II (PII)/350 x 2 (SMP)
NT 4.0
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
NF7000-200MHZ2P6-1280MB
Netfinity 7000 with 2 CPUs (200 MHZ Pentium Pro), 1280 MB RAM, and 10 Hard Drives (4.5 GB) in a RAID5 array.
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
Netfinity 5500 with 2 CPUs (350 MHz Pentium II) and 1024 MB RAM. The system included 10 hard disk drives (4.5 GB each) that were configured into one array. The array was partitioned such that the first logical drive (C:) was a RAID1 volume of 4 GB (for OS and Domino executables). The second logical drive (D:) was a RAID5 volume of the remaining free disk space (approximately 32 GB). The standard integrated network adapter on the system was used to connect to the 10 MBits Ethernet network.
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
IBMPCC
PCS325-233MHZ1P6-384MB
IBMPCC
NF3500-233MHZ1P6-320MB
IBMPCC
PCS330-300MHZ1PII-512MB
IBMPCC
NF7000-200MHZ2P6-1280MB
IBMPCC
NF5500-350MHZ2PII-1024MB
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
LayoutServerTasks
4S5S
NF7000-200MHZ2P6-1280MB
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
IBMPCC
PCS325-233MHZ1P6-384MB
IBMPCC
NF3500-233MHZ1P6-320MB
IBMPCC
PCS330-300MHZ1PII-512MB
IBMPCC
NF7000-200MHZ2P6-1280MB
IBMPCC
NF5500-350MHZ2PII-1024MB
Query on Data
@11/01/98 11:06:15 PM21101
0IBMPCCIBMPCCOutput to DatabaseUSlow (3.1 - 5 sec)50
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS330-300MHZ1PII-512MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF5500-350MHZ2PII-1024MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS704-200MHZ1P6-512MB
Pentium Pro (P6)/200 x 1
NT 4.0
IBMPCC
PCS325-233MHZ1P6-384MB
Pentium II/233 x 1
NT 4.0
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS330-300MHZ1PII-512MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF5500-350MHZ2PII-1024MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
IBMPCC
NF5500-350MHZ2PII-1024MB
Pentium II (PII)/350 x 2 (SMP)
NT 4.0
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
Netfinity 5500 with 2 CPUs (350 MHz Pentium II) and 1024 MB RAM. The system included 10 hard disk drives (4.5 GB each) that were configured into one array. The array was partitioned such that the first logical drive (C:) was a RAID1 volume of 4 GB (for OS and Domino executables). The second logical drive (D:) was a RAID5 volume of the remaining free disk space (approximately 32 GB). The standard integrated network adapter on the system was used to connect to the 10 MBits Ethernet network.
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS325-233MHZ1P6-384MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS330-300MHZ1PII-512MB
Pentium II (PII)/300 x 1
NT 4.0
IBMPCC
NF5500-350MHZ2PII-1024MB
Pentium II (PII)/350 x 2 (SMP)
NT 4.0
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
Netfinity 5500 with 2 CPUs (350 MHz Pentium II) and 1024 MB RAM. The system included 10 hard disk drives (4.5 GB each) that were configured into one array. The array was partitioned such that the first logical drive (C:) was a RAID1 volume of 4 GB (for OS and Domino executables). The second logical drive (D:) was a RAID5 volume of the remaining free disk space (approximately 32 GB). The standard integrated network adapter on the system was used to connect to the 10 MBits Ethernet network.
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
LayoutServerTasks
4S5S
IBMPCC
PCS704-200MHZ1P6-512MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS325-233MHZ1P6-384MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF3500-233MHZ1P6-320MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
NF7000-200MHZ2P6-1280MB
NotesBench workload results not in range for individual results comparison: Mail
IBMPCC
PCS330-300MHZ1PII-512MB
IBMPCC
NF5500-350MHZ2PII-1024MB
IBMPCC
NF3500-233MHZ1P6-320MB
IBMPCC
NF7000-200MHZ2P6-1280MB
Query on Data
@11/11/98 10:47:43 PM81101
0IBM2; IBMPCC
IBM2IBMPCClocalOUTPUT.NSFOutput to DatabaseUSlow (3.1 - 5 sec)50
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS704-200MHZ1P6-512MB
PCS704 with 1 CPU (P6/200MHz) and 512MB RAM
LayoutServerTasks
4S5S
PCS325-233MHZ1P6-384MB
PCS325 with 1 CPU (Pentium II/233MHz) and 384 MB RAM
LayoutServerTasks
4S5S
NF3500-233MHZ1P6-320MB
Netfinity 3500 with 1 CPU (233MHz Pentium II) and 320 MB RAM
LayoutServerTasks
4S5S
PCS330-300MHZ1PII-512MB
IBM PCS330 with 1 CPU (Pentium II/330MHz) and 512 MB RAM using NT4.0
LayoutServerTasks
4S5S
NF7000-200MHZ2P6-1280MB
Netfinity 7000 with 2 CPUs (200 MHZ Pentium Pro), 1280 MB RAM, and 10 Hard Drives (4.5 GB) in a RAID5 array.
LayoutServerTasks
4S5S
NF5500-350MHZ2PII-1024MB
Netfinity 5500 with 2 CPUs (350 MHz Pentium II) and 1024 MB RAM. The system included 10 hard disk drives (4.5 GB each) that were configured into one array. The array was partitioned such that the first logical drive (C:) was a RAID1 volume of 4 GB (for OS and Domino executables). The second logical drive (D:) was a RAID5 volume of the remaining free disk space (approximately 32 GB). The standard integrated network adapter on the system was used to connect to the 10 MBits Ethernet network.
(.txt)