create procedure TDB.TAB1_INS (in  in_DISTCOD smallint,
                                      in  in_FULLNAM varchar( 100 ),
                                      in  in_LOGIN   varchar( 15 ),
                                      in  in_PSWRD   varchar( 15 ),
                                      in  in_USERTYP smallint,
                                      in  in_ACCESS  smallint,
                                      out ou_RCOU    integer)

   specific TAB1_INS
   modifies SQL DATA
   language SQL

/*
   ou_RCOU - количество добавленных строк. Если 0, то ошибка  
*/
begin atomic
 -- set ou_RCOU = 0;
 insert into TDB.TAB1_INS (DISTCOD, FULLNAM, LOGIN, PSWRD, USERTYP, ACCESS)
 values (in_DISTCOD, in_FULLNAM, in_LOGIN, in_PSWRD, in_USERTYP, in_ACCESS);
 get diagnostics ou_RCOU = ROW_COUNT;
end
@

create procedure TESTDB.MYTAB_INS (in  in_FLD1 smallint,
                                      in  in_FLD2 varchar( 100 ),
                                      in  in_FLD3   varchar( 15 ),
                                      ...
                                      out ou_RCOU    integer)
   specific MYTAB_INS
   modifies SQL DATA
   language SQL
/*   ou_RCOU - количество добавленных строк. Если 0, то ошибка  */
begin atomic
 -- Нужно ли присвоить 0 для ou_RCOU?
 -- set ou_RCOU = 0; 
 insert into TESTDB.TAB1 (FLD1, FLD2, FLD3, ...)
 values (in_FLD1, in_FLD2, in_FLD3, ...);
 get diagnostics ou_RCOU = ROW_COUNT;
end
@

create procedure ...
(
  ...
  out ou_SQLCODE int,
  out ou_MESSAGE varchar( 4000 )
)
language sql
begin
 declare SQLCODE int default  0 ;
 declare SQLSTATE char( 5 ) default '00000';
 declare cons_name varchar( 18 ) default '';

 declare C_UNIQUE_ERROR condition for sqlstate '23505';
 declare exit handler for sqlexception
 begin
  get diagnostics exception  1  ou_MESSAGE = MESSAGE_TEXT;
  set ou_SQLCODE = SQLCODE;
 end; 
 declare exit handler for C_UNIQUE_ERROR
 begin
  get diagnostics exception  1  ou_MESSAGE = MESSAGE_TEXT, cons_name = CONSTRAINT_NAME;
  set ou_SQLCODE = SQLCODE;
  set ou_MESSAGE = ou_MESSAGE || ', нарушение уникальности по ключу ' || cons_name;
 end; 
 insert into TESTDB.MYTAB (FLD1, FLD2, FLD3, ...)
 values (in_FLD1, in_FLD2, in_FLD3, ...);
end

call TESTDB.MYTABINS( 0 ,'ABCD','111111','111', 0 , 0 ,?,?,?,?)

  Значение выходных параметров
  --------------------------
  Имя параметра   : OU_SQLCODE
  Значение парам. : - 803 

  Имя параметра   : OU_SQLSTTE
  Значение парам. :  00000  

  Имя параметра   : OU_MESSAGE
  Значение парам. : SQL0803N  Одно или несколько значений в операторе INSERT, 
в операторе UPDATE или при обновлении внешнего ключа, вызванном оператором DELETE,
недопустимы, поскольку первичный ключ, ограничение уникальности или индекс уникальности "2"
запрещают повторение строк для этих столбцов в таблице "TESTDB.MYTAB".  SQLSTATE= 23505    

  Имя параметра   : OU_DB2TOKE
  Значение парам. : 2яTESTDB.MYTAB

  Статус возврата =  0