Page History

...

     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