6 19 2 C Example

LANSA Open Guide

6.19.2 C Example

BOOL fOK;

int  iSession;

int  iRet;

long lFlags;

BOOL fSQLNullEnab;

 

fOK = LceGetFieldAttributes(iSession, " SKILDESC ", &lFlags);

fSQLNullEnab = (lFlags & LCE_FLDATTR_SQLNULL);

 

iRet = LceSetFieldValue(iSession, "SKILCODE", strCode);

if (fSQLNullEnab && ( strcmp(strDesc, "") == 0 ) )

   iRet = LceSetFieldValue(iSession, "SKILDESC", Null);

else

   iRet = LceSetFieldValue(iSession, "SKILDESC", strDesc);

    

iRet = LceInsert(iSession, "SKILCODE,SKILDESC", "SKLTAB", False);