iRet = LceSetCommitmentOn(iSession)
     iRet = LceOpenSession(iSession) ' enable commit mode
     ...
     if (bCommit) then
        iRet = LceCommitWork (iSession) 
     else
        iRet = LceRollBackWork (iSession)