o8if 0201

Main Transaction (MT)

Procedurę add emp{...)

IS

BEGIN

UPDATE ...

UPDATE ...;

SAVEPOINT start_add; INSERT . . . ;

COMMIT;

EXCEPTION

WHEN OTHERS THEN

ROLLBACK to start_add;

write-log { -

SQLCODE, SOLERRM);

END;

Autonomous Transaction (AT)

PROCEDURĘ write_log{...)

IS

PRAGMA

AUTONOMOU S_TRANSACTION

BEGIN

INSERT INTO log -

VALUES <    \ ATbegins

codę, text,

USER, SYSDATB

>;

COMMIT:

END;

MT ends	_/r
		MT resumes