set sql_mode='ORACLE,STRICT_TRANS_TABLES';
create table t1(c1 varchar2(10));
delimiter /
CREATE or replace procedure p3(b1 decimal(64,24))
AS
  strres VARCHAR(4);  
BEGIN 
  start transaction;
  insert into t1 values('aaa');
  strres:=cast(b1 as char(4));
  insert into t1 values('bbb');
  commit;
END
/
call p3(1.0)
/
select * from t1
/
drop table t1
/
drop procedure p3
/
