6 52 1 VB Example

LANSA Open Guide

previous page next page

6.52.1 VB Example

 iRet = LceSetCommitmentOn(iSession)

iRet = LceOpenSession(iSession) ' enable commit mode

...

if (bCommit) then

   iRet = LceCommitWork (iSession) 

else

   iRet = LceRollBackWork (iSession) 

end if

 

previous page start next page