求助~~菜单树--根据菜单名称，获取菜单ID，使用函数实现

建立菜单树
File 
        New
        Open
        Save
        Close
Edit
        Copy
        Cut
        Paste
View
        Shapes Window
        Toolbars
                Standard
                Foamatting
                Drawing
        Full Screen创建了序列，以及创建了menu保存信息
create table menu
(
ID number primary key,
menu_name varchar2(20),
parent_menu varchar(20),
desc_menu varchar2(100),
avalb_menu varchar2(10))
;保存了菜单树的信息之后，有一步操作是：根据菜单名称，获取菜单ID，使用函数实现
我的代码是：  1  create or replace function getmenuid(gmenuname varchar2)
  2  return number
  3  as
  4  gid number(10);
  5  begin
  6  select id into gid from menu where menu_name=gmenuname;
  7  return gid;
  8  exception
  9  when no_data_found then
10  return 'no rerult!';
11  end getmenuid;
12  declare
13      menu_id number;
14      gname  varchar2(20);
15  begin
16      gname:=&菜单名;
17     menu_id=:getmenuid(gname);
18     DBMS_OUTPUT.PUTLINE('菜单名'||gname||'菜单ID是：'||menu_id);
19* end;
20  /
输入 菜单名 的值:  view
原值   16:     gname:=&菜单名;
新值   16:     gname:=view;警告: 创建的函数带有编译错误。
SQL> show error
FUNCTION GETMENUID 出现错误:LINE/COL ERROR
-------- -----------------------------------------------------------------
12/1     PLS-00103: 出现符号 "DECLARE"
16/12    PLS-00103: 出现符号 "VIEW"在需要下列之一时：
         ( - + case mod new not
         null <an identifier> <a double-quoted delimited-identifier>
         <a bind variable> continue avg count current exists max min
         prior sql stddev sum variance execute forall merge time
         timestamp interval date
         <a string literal with character set specification>
         <a number> <a single-quoted SQL string> pipe
         <一个带有字符集说明的可带引号的字符串文字>
         <一个可带引号的 SQL 字符串> purgeLINE/COL ERROR
-------- -----------------------------------------------------------------
菜鸟跪求高手解答~~~