CREATE OR ALTER PROCEDURE RegReg (ClientID VARCHAR(6), FIO VARCHAR(30), ClientBorn DATE, Pol VARCHAR(10), Job VARCHAR(30))
AS
BEGIN

IF (:ClientID NOT IN (SELECT AccountClient FROM Client)) THEN EXCEPTION Error_Account;

INSERT INTO Registration
VALUES (:ClientID, :FIO, :ClientBorn, :Pol, :Job);

WHEN
 EXCEPTION Error_Account DO
 BEGIN
   IN AUTONOMOUS TRANSACTION DO
   BEGIN
   INSERT INTO Errors(UserName, Date_Time, CurrentProc, Descript)
   VALUES(USER, CURRENT_TIMESTAMP, 'RegReg','Данного номера клиента не существует');
   EXIT;
   END
   EXCEPTION;
 END

END;

EXECUTE PROCEDURE RegReg('100000', 'Иванов И.И.','24.02.1989', 'муж', 'Бизнесмен');

WHEN
 EXCEPTION Error_Account DO
 BEGIN
   IN AUTONOMOUS TRANSACTION DO
   BEGIN
   INSERT INTO Errors(UserName, Date_Time, CurrentProc, Descript)
   VALUES(USER, CURRENT_TIMESTAMP, 'RegReg','Данного номера клиента не существует');
   EXIT;
   END
   EXCEPTION;
 END