6 13 1 VB Example

6.13.1 VB Example

' The call below specifies fResume to be TRUE.

' This leaves the communications path open.

' All files and LANSA resources are disassociated from the 

' session. The session Id is still valid.

 

If iSession > 0 Then

         iRet = LceEndSession(iSession, LceTrue)

End If

 

....

 

' At a later stage in the processing you may wish to re-use the session.  ' To do this you must re-open it. 

' This will be fast because the underlying communications path already

' exists.

 

' Now you will start the processing for the new session.

' For example, you would set up a new set of files and fields for use 

' over the session.

....

iRet = LceUseFile(iSession,"PLSMST") 

iRet = LceOpenSession(iSession)

....

 

' Finally, if you have no further need for the session,

' end it specifying fResume as FALSE.

' This will free all LANSA resources associated with it as well as

' de-allocating the underlying communications path.

 

iRet = LceEndSession(iSession, LceFalse)