[求助]请大家帮忙解决一个小问题！（在线等待）

Question

给你个例子，成功返回T，失败返回F
CREATE OR REPLACE PROCEDURE "INSERTAREAS" (
   tareaid      IN       VARCHAR2,
   tareaname    IN       VARCHAR2,
   tre      IN       VARCHAR2,
   execresult   OUT      VARCHAR2
)
AS
BEGIN
   INSERT INTO areas(areaid, areaname, re)
        VALUES (to_number(tareaid), tareaname, tre);
   execresult := 'T';
   COMMIT;
EXCEPTION
   WHEN OTHERS
   THEN
      ROLLBACK;
      execresult := 'F' || SQLCODE;
END "INSERTAREAS";
/