' set Surname column headings using LANSA Repository information
'
dim sBuff as string
sBuff = String(FIELD_HEADING_LENGTH, Chr(0))
iRet = LceGetFieldHeading(iSession, "SURNAME", 1, sBuff)
lbHead1.Caption = sTrim (sBuff)
iRet = LceGetFieldHeading(iSession, "SURNAME", 2, sBuff)
lbHead2.Caption = sTrim (sBuff)
iRet = LceGetFieldHeading(iSession, "SURNAME", 3, sBuff)
lbHead3.Caption = sTrim (sBuff)