oracel中关于包的中包体怎么创建不成功 急。。。

--创建包声明
create or replace package mypack as
   v_temp number;
   procedure p1(x number);
function left(str1 varchar2,len number) return varchar2;
end;
--创建包体
CREATE OR REPLACE package  Body  mypack  as
   procedure p1(x number) as
   begin
      v_temp :=x;
      dbms_output.put_line(v_temp);
   end p1;
function left(str1 varchar2, len number)
return varchar2
is
rtn_val varchar2(100);
begin
 rtn_val:=str1.substr(0,len);dbms_output.put_line(str1);
   return rtn_val;
   end left;
end;
但是创建包体是报str1变量引用无效.麻烦各位帮看一下。谢谢！！