6 25 3 Psuedocode Example

6.25.3 Psuedocode Example

strIndicator = ""

IF NOT LceGetFieldIndicator(iSession, "SURNAME", strIndicator)

         /* return error */

ENDIF

IF strIndicator = "Y"

         /* field uses DBCS */

ELSE

         /* single byte character */

ENDIF