6 17 3 Psuedocode Example

LANSA Open Guide

previous page next page

6.17.3 Psuedocode Example

strValue = spaces(FIELD_DATA_SIZE + 1)

iValue  = 0

lFlags = 0

IF LceGetDefaultValueX(iSession, "EMPNO", strValue, lFlags)

    IF NOT lFlags = 1

         iValue = ConvertStringToInteger (strValue)

    ENDIF

ELSE

         /* return error */

ENDIF

 

previous page start next page