不包含参数的存储过程应该如何建立？

create or replace package Pac_Test
as
procedure Pro_DelAndUpd();
end Pac_test;
/
Commit;
/

create or replace package body Pac_Test
as
procedure Pro_DelAndUpd
is
begin
update t_test set name = name || ' is updated ';
delete from t_test where id = 1001;
dbms_lock.sleep(１);
RAISE_APPLICATION_ERROR(-１, '大哥，出错了！ ');
end Pro_DelAndUpd;
end Pac_Test;
/
Commit;
/

－－－－－－－－－－－－－－－－－－－－－－－－－－－－

显示错误：

3/32 PLS-00103: 出现符号 ") "在需要下列之一时：
<an identifier>
<a double-quoted delimited-identifier> current


[解决办法]
改了一下：


create or replace package Pac_Test
as
procedure Pro_DelAndUpd;
end Pac_test;


create or replace package body Pac_Test
as
procedure Pro_DelAndUpd
is
begin
update t_test set name = name || ' is updated ';
delete from t_test where id = 1001;
dbms_lock.sleep(１);
RAISE_APPLICATION_ERROR(-１, '大哥，出错了！ ');
end Pro_DelAndUpd;
end Pac_Test;