Dim sensedata(16) As Integer

Dim ha As Integer
Dim target As Integer
Dim lun As Integer
Dim retval As Integer

Dim testloop As Integer
Dim innerloop As Integer
Dim results As String
Dim NL As String

NL = Chr(10)


Dim inqdata(256) As Integer
Dim inqstr As String
Dim i As Integer
Dim length As Integer
Dim vendor As String
Dim vers As String
Dim product As String

Dim today

ha = 2
target = 5
lun = 0


Open "aitlogs.txt" For Output As #1

'MsgBox Now

today = Now

Print #1, today & " "
Print #1, " "


retval = SCSIGetDLLVersion()
'MsgBox "Dll version = " & retval


retval = SCSIInquiry(ha,target,lun,inqdata())
If retval <> 1 Then
	MsgBox "Inquiry failed - Status = " & retval
	Stop
 
Else

	retval = SCSIGetVendor(ha,target,lun,vendor)
	retval = SCSIGetProduct(ha,target,lun,product)
	retval = SCSIGetVersion(ha,target, lun , vers)

	results = "Vendor = " & vendor & " Product = " & product & " Version = " & vers
'	MsgBox results

	Print #1, results
	Print #1, ""

	Print #1, "Host adapter = " & ha & " Target = " & target & " LUN = " & lun
	Print #1, " "


End If


getlogs


Close


MsgBox "Test Finished"

Stop


Sub GetLogs


retval = SCSILogSense(ha,target,lun,&H30, &H40,inqdata())

If retval <> 1 Then
	MsgBox "Log Sense failed - Status = " & retval
	Stop
 
Else


'	results = "Tape log = "
'	For i = 0 To 128
'		results = results & Hex(inqdata(i)) & " "
'	Next

'	Print #1, results

	results = "Tape Log Page (30h) = "

	Print #1, results



	results = "Current Number of Groups Written = "
	results = results & Hex(inqdata(8)) & Hex(inqdata(9)) & Hex(inqdata(10))

	Print #1, results

	results = "Current Number of RAW Retries = "
	results = results & Hex(inqdata(15)) & Hex(inqdata(16))
	Print #1, results

	results = "Current Number of Groups Read = "
	results = results & Hex(inqdata(21)) & Hex(inqdata(22)) & Hex(inqdata(23)) 
	Print #1, results

	results = "Current Number of ECC-3 Retries = "
	results = results & Hex(inqdata(28)) & Hex(inqdata(29))
	Print #1, results
	Print #1, " "

	results = "Previous Number of Groups Written = "
	results = results & Hex(inqdata(34)) & Hex(inqdata(35)) & Hex(inqdata(36))

	Print #1, results

	results = "Previous Number of RAW Retries = "
	results = results & Hex(inqdata(41)) & Hex(inqdata(42))
	Print #1, results

	results = "Previous Number of Groups Read = "
	results = results & Hex(inqdata(47)) & Hex(inqdata(48)) & Hex(inqdata(49)) 
	Print #1, results

	results = "Previous Number of ECC-3 Retries = "
	results = results & Hex(inqdata(54)) & Hex(inqdata(55))
	Print #1, results
	Print #1, " "

	results = "Total Number of Groups Written = "
	results = results & Hex(inqdata(60)) & Hex(inqdata(61)) & Hex(inqdata(62)) & Hex(inqdata(63))
	Print #1, results

	results = "Total Number of RAW Retries = "
	results = results & Hex(inqdata(68)) & Hex(inqdata(69)) & Hex(inqdata(70))

	Print #1, results

	results = "Total Number of Groups Read = "
	results = results & Hex(inqdata(75)) & Hex(inqdata(76)) & Hex(inqdata(77)) & Hex(inqdata(78)) 

	Print #1, results

	results = "Total Number of ECC-3 Retries = "
	results = results & Hex(inqdata(83)) & Hex(inqdata(84))  & Hex(inqdata(85))

	Print #1, results
	Print #1, " "

	results = "Load Count = "
	results = results & Hex(inqdata(90)) & Hex(inqdata(91)) 
	
	Print #1, results
	Print #1, " "



End If


End Sub