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)