My final DAOS results + some code & tips

At last weeks NLLUG, Jeroen Keet of Appligate held a session on DAOS. In that session he referenced my testserver results.

This post shows my final results on the servers I DAOS-ed with Domino 8.5.

Server	Disksize	Free Space before	Free Space after	Gain
NI	140 Gb	34,368,876,544	137,979,035,648	103 Gb
UK1	360 Gb	23,636,766,720	175,592,132,608	151 Gb
NL1	380 Gb	6,989,377,536	114,834,079,744	107 Gb
NL1	350 Gb	11,815,108,608	302,848,016,384	289 Gb
UK2	360 Gb	35,799,535,616	163,233,611,776	128 Gb
DE	290 Gb	83.949.232.128	99.048.398.848	16 Gb
FR	725 Gb	176.562.995.200	291.088.498.688	115 Gb
Test	287 Gb	37.5 Gb	188 Gb	150,5 Gb
NL2	300 Gb	6 Gb	165 Gb	160 Gb

Total Gain? 1219,5 Gb...... Wow!! That not only lowers the load on the domino servers, but also on the backups. The TSM guys really like me, cause backup times and space in use just plumit!

Please take a look at this tip by Ulrich Krause, so you keep the DAOS filecount down!

I wrote a little script, so you can compact databases with from a lower ODS to ODS51 after you set CREATE_R85_DATABASES=1.

Sub Initialize
	Dim session As New NotesSession
	Dim dbdir As New NotesDbDirectory("")
	Dim db As NotesDatabase
	Set db = dbdir.GetFirstDatabase(DATABASE)
	Dim servername As String
	servername="Server/Org"
	While Not(db Is Nothing)
		If Instr(Lcase$(db.FilePath),"mail\") Then	
			Call db.Open("", "") 
			'from 6/7 to 8.5 use 43
			'modify when upgrading from different versions
			If db.fileformat=43 Then
				commando$="load compact -ZU -n -v -C " & db.FilePath
				message$ = session.SendConsoleCommand( servername, commando$) 
			End If
		End If
		Set db = dbdir.GetNextDatabase
	Wend
End Sub

ls2html was brought to you by nsftools.com.