Function zICE01()
On Error Resume Next
 
	Set recInfo = Session.Installer.CreateRecord(1)
 	If Err <> 0 Then
 		zICE01=1
 		Exit Function
 	End If
 
	'Give description of test
	recInfo.StringData(0)="zICE01" & Chr(9) & "3" & Chr(9) & "zICE01 - Checks for (" & _
  "`Action` = 'Call_EditRightReg', `Type` = '6', `Source` =" & _
  "'Callwiseresourcespathedit_right_reg') in CustomAction table"
	Message &h03000000, recInfo
	recInfo.StringData(0)="zICE01" & Chr(9) & "3" & Chr(9) & "Created 05/21/98." & _
  "Last Modified 30/05/08."
	Message &h03000000, recInfo
 
' 	'Is there a table in the database?
 	iStat = Database.TablePersistent("CustomAction")
 	If 1 <> iStat Then
 	recInfo.StringData(0)="zICE01" & Chr(9) & "3" & Chr(9) & "'CustomAction'" & _
   "table missing. zICE01 cannot continue its validation."
 	Message &h03000000, recInfo
 		zICE01 = 1
 		Exit Function
 	End If
 
	'process table
	Set view = Session.Database.OpenView("SELECT Action FROM CustomAction WHERE" & _
  "Action = 'xxCall_EditRightReg'")
	view.Execute	
 
 		If  Err <> 0 Then
 		recInfo.StringData(0)= "zICE01" & Chr(9) & "0" & Chr(9) & Err & " DIFFERENT" & _
   "VALUES"
 		Message &h03000000, recInfo
 			zICE01=1
 			Exit Function
 		End If 
 
 
	'Return iesSuccess  
	zICE01 = 1
	Exit Function
 
End Function