srvgudba_0195

[ |../../index.htm#lansa/srvgudba_0195.htm]
You are here:

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
 
[ |../../index.htm#lansa/srvgudba_0195.htm]