6 25 3 Psuedocode Example

LANSA Open Guide

previous page next page

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

 

previous page start next page