6 55 1 VB Example

LANSA Open Guide

6.55.1 VB Example

' set commit mode

iSession = LceGetSessionId(): 

If bCommit = True Then

    iRet = LceSetCommitmentOn(iSession)

Else

    iRet = LceSetCommitmentOff(iSession)

End If

iRet = LceOpenSession(iSession):