Public Delegate Sub IBMHostCreditCardRecognizedHandler( _
   ByVal sender As Object, _
   ByVal accountNumber As String, _
   ByVal user As String, _
   ByVal machineName As String, _
   ByVal userDomainName As String, _
   ByVal dateTime As String, _
   ByVal eventType As String, _
   ByVal success As Long _
) 

Parameters

sender

Sender of event.

accountNumber

The card number (in redacted format) that was recognized.

user

The Windows user name of the current user.

machineName

The machine name (as set up in the system control panel).

userDomainName

The domain that the user is logged onto, or an empty string if not logged onto a Windows domain.

dateTime

The date and time that the event occurred.

eventType

The type of access that the credit card number was encountered in (eg. LiveScreen, OfficeTools, ScreenHistory, etc).

success

Reserved for future use. This currently always returns a success return code.

This event occurs only when a PAN is displayed or copied in its entirety ("in the clear"). It is not fired when only redacted PANs are displayed or copied.

Rem This sample sends information about credit card access to a log file.

Rem For Open Systems, use Terminal_CreditCardRecognized instead of IbmTerminal_CreditCardRecognized

Private Sub IbmTerminal_CreditCardRecognized(ByVal sender As Variant, ByVal AccountNumber As String, ByVal User As String, ByVal MachineName As String, ByVal UserDomainName As String, ByVal DateTime As String, ByVal EventType As String, ByVal success As Long)

Dim log As String

Dim path As String

Dim fnum As Integer

log = "Account number: " + AccountNumber + " User: " + User + " Machine name: " + MachineName + "," +
"Time: " + DateTime

path = "C:\Users\Public\Documents\Micro Focus\Reflection\" & "log.txt"

fnum = FreeFile()

Open path For Append As fnum

Print #fnum, log

Close #fnum

End Sub

Reference

IBMHostCreditCardRecognizedHandler Members
Attachmate.Reflection.Objects.Emulation.IbmHosts Library