6 19 3 Psuedocode Example

LANSA Open Guide

6.19.3 Psuedocode Example

strFieldName = ""

lFlags = 0

 

LceGetFieldDataLength(iSession, strFieldName, lFlags)

 

IF lFlags And LCE_FLDATTR_SQLNULL 

SQLNullEnabled = True

ELSE

SQLNullEnabled = False

ENDIF

 

IF lFlags And LCE_FLDATTR_DATEINUTC 

DateInUtc = True

ELSE

DateInUtc = False

ENDIF

 

IF lFlags And LCE_FLDATTR_UNSIGNED 

SQLNullEnabled = True

ELSE

SQLNullEnabled = False

ENDIF