Page History
...
' 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)