Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     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)