6 25 1 VB Example

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