6 38 2 C Example

LANSA Open Guide

6.38.2 C Example

BOOL fOK;

int  iSession;

int  iRecords;

char strSurname[FIELD_DATA_SIZE + 1];

long lFlags;

 

fOK = LceSetSelectOptions(iSession, "*BACKWARDS,  *MAXREC25");

fOK = LceRequestSelect(iSession, "SURNAME, SALARY", "PSLMST", "", FALSE);

fOK = LceReceiveSelect(iSession, "PSLMST");

fOK = LceGetRecordCount(iSession, "PSLMST", &iRecords);

for (iCount=1; iCount <= iRecords; iCount++)

{

         fOK = LceGetSelect(iSession, "PSLMST", iCount, "SURNAME");

         fOK = LceGetFieldValueX(iSession, "SURNAME", (char far *) strSurname, lFlags);

}