Can use INSERT in a FUNCTION

Question

create or replace function insert_new_richesid_list(in_hard in number,in_productid in number)
return number
as
v_sql varchar2(1000);
v_result number;
err_num number;
err_msg varchar2(1000);
begin
v_sql:='insert into new_richesid_list(richesid,hard,productid,getdate) values (auto_richesid_list.nextval,'||in_hard||','||in_productid||',sysdate)';
execute immediate v_sql;
v_sql := 'select auto_richesid_list.currentval from dual';
execute immediate v_sql
into v_result;
return (v_result);
exception
when others then
err_num :=SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 1000);
insert into err_report(errno,errcode,errmsg,errdate,errsql) values (sq_err_report_errno.nextval,err_num,err_msg,sysdate(),'insert_new_richesid_list');
end;
run it ,tell me :
ERROR at line 1:
ORA-14551: cannot perform a DML operation inside a query
ORA-06512: at "SPORTSCN.INSERT_NEW_RICHESID_LIST", line 19
ORA-14551: cannot perform a DML operation inside a query
ORA-06512: at line 1
why?

Answer 1

Just like the previous response I did not have any difficulty with
this FUNCTION. However, I have modified it slightly. Give it
a try and let me know if it works:
create or replace function insert_new_richesid_list
(in_hard in number,in_productid in number)
return number as
v_sql varchar2(1000);
v_result number;
err_num number;
err_msg varchar2(1000);
begin
v_sql:='insert into new_richesid_list(richesid,hard,productid,getdate) '||
'values (auto_richesid_list.nextval, :1, :2, :3 )';
execute immediate v_sql
USING in_hard, in_productid, sysdate;
v_sql := 'select auto_richesid_list.currentval from dual';
execute immediate v_sql
into v_result;
return (v_result);
exception
when others then
err_num :=SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 1000);
insert into err_report(errno,errcode,errmsg,errdate,errsql)
values (sq_err_report_errno.nextval,err_num,err_msg,sysdate,'insert_new_richesid_list');
RETURN('FAIL');
end;