6.25.1 VB Example
Sub TranslateField(sFieldName as string, sValue as string)
' if required this function translates an IBM i Double Byte
' Character string into a Unicode string using a hypothetical
' Translate DCB function
Dim sInd as String
sInd = String (FIELD_IND_LENGTH, chr(0))
' get field indicator
If LceGetFieldIndicator(iSession, sFieldName, strInd) = LceTrue Then
If strInd ="Y" then ' is a DBC
Call TranslateDBC (sValue) ' call translator
End If
End if
End Sub