lnRetVal = 1
llCommitTrans = .T.
lnRetVal = SQLEXEC(lnHandle, 'BEGIN TRANSACTION SomeTransaction')
GO TOP IN csrLocalCursor
DO WHILE NOT EOF('csrLocalCursor') AND lnRetVal > 0
lcSql = "EXEC SomeStoredProcedure '" + csrLocalCursor.SomeParameter + "'"
lnRetVal = SQLEXEC(lnHandle, lcSql)
IF lnRetVal < 1
lnRetVal = SQLEXEC(lnHandle, 'ROLLBACK TRANSACTION SomeTransaction')
llCommitTrans = .F.
EXIT
ENDIF
SKIP IN csrLocalCursor
ENDDO
IF llCommitTrans
lnRetVal = SQLEXEC(lnHandle, 'COMMIT TRANSACTION SomeTransaction')
ENDIF