6 30 2 Psuedocode Example

LANSA Open Guide

6.30.2 Psuedocode Example

strValue = ""

iValue  = 0

lFlags = 0

lDataLen = 0

 

LceGetFieldDataLength(iSession, "EMPNO", lDataLen)

/* Allocate buffer for field value */

LceGetFieldValueX(iSession, "EMPNO", szBuffer, lFlags)