6.32.1 VB Example
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)