SQL2000에서 에러처리 후 결과값 전달

CREATE TABLE FIRSTTB(A CHAR(1))

CREATE TABLE SECONDTB(A CHAR(1))

CREATE TABLE THIRD(A VARCHAR(30))

 

BEGIN TRAN

       DECLARE @I INT

       SET @I = 5

       WHILE (@I <= 15)

       BEGIN

             INSERT INTO FIRSTTB VALUES(@I)

             IF(@@ERROR <> 0) GOTO _RollBack

            

             INSERT INTO SECONDTB VALUES('AA')

             IF(@@ERROR <> 0) GOTO _RollBack

       END

COMMIT TRAN

GOTO _DataSave

 

_RollBack:

 

IF @@TRANCOUNT > 0 BEGIN

       ROLLBACK TRAN

       INSERT INTO THIRD VALUES('에러발생')

END

RETURN

 

_DataSave:

RETURN