Есть последовательность sqlexec:
SqlExec(handle, "CREATE TABLE TMPPOW1(idob char(10) NOT NULL, ...")

UpdateCommand = "CREATE PROCEDURE UpdatePow AS UPDATE ARHPOW SET MPOWER =TMPPOW1.MPOWER, RPOWER =TMPPOW1.RPOWER WHERE ..."

SqlExec(handle, UpdateCommand)
SqlExec(handle, "CREATE INDEX IX_ARHPOW ON ARHPOW(m_gr, m_adr)")
SqlExec(handle, "CREATE INDEX IX_ARHPOW1 ON ARHPOW(idob)")
SqlExec(handle, "CREATE INDEX IX_TMPPOW1 ON TMPPOW1(m_gr, m_adr)")
SqlExec(handle, " ALTER TABLE METERS ADD DEEP char(10) NULL ")
и т.п. В случае ошибки в любом из sqlexec(), т.е. return value<=0 необходимо отменить все предыдущие exec'и Как это сделать?
Не писать же для каждого sqlexec'а аналогичный sqlexec с противоположными действиями?
Может как-то можно все sqlexec'и объединить в один? Только учтите их примерно 30-50.