lRet = seek(cSeek, 'MyTable', 'MyTag')

If !IsNull(IRet) and type('lRet') = 'L' and lRet
   End Transaction
else
   Rollback
endif