PB调用plsql存储过程。报错！pl sql数字或值异常字符串缓冲区太小

PB调用plsql存储过程。报错！！pl sql数字或值错误字符串缓冲区太小
目前自己写的pb程序都碰到这种问题，varchar2类型的变量，我都设置成4000size了，还是没解决。代码如下：
PROCEDURE

 function check_actionata(p_actionata defect.actionata%type,

                           p_actype    orders.actype%type,

                           p_return    out varchar2) return number is

    l_count number;

  begin

    if trim(p_actionata) is null then

      p_return := null;

      return 1;

    end if;

    if trim(p_actype) is null then

      select count(ata)

        into l_count

        from ata

       where trim(ata) = trim(p_actionata)

         and not_for_defect is null;

    else

      select count(ata)

        into l_count

        from ata

       where trim(actype) = trim(p_actype)

         and trim(ata) = trim(p_actionata)

         and not_for_defect is null;

    end if;

    if l_count = 0 then

      p_return := zh_pub_function.get_message('DEFECT', -7);

      return 0;

    end if;

    p_return := null;

    return 1;

  end check_actionata;

调用函数：

if dwo.name = 'ata' then

	data = trim(data)

	ls_actype = trim(ls_actype)

	ls_return = trim(ls_return)

	sqlca.check_actionata( data, ls_actype, ls_return)

	messagebox('提示',sqlca.sqlerrtext)

	if trim(ls_return) <>'' then

	else

		messagebox('提示',ls_return)

	end if

end if