6 20 3 Psuedocode Example

LANSA Open Guide

6.20.3 Psuedocode Example

strValue = ""

iValue  = 0

lFlags = 0

lDataLen = 0

 

LceGetFieldDataLength(iSession, "EMPNO", lDataLen)

/* Allocate buffer for field value */

LceSetFieldValue(iSession, "EMPNO", szBuffer)