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)