You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 2 Current »

dim sDescription as String 
 
' get the LANSA Repository Description to use in list label
 
sDescription = string (FILE_DESC_LENGTH + 1 ,chr(0))
iRet = LceGetFileDesc(iSession, "PSLMST", sDescription)
lbFileList.caption = sTrim (sDescription)

  • No labels