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