PLS-00103: Encountered the symbol "CREATE"

0 0

PLS-00103: Encountered the symbol "CREATE"5

SQL> --编写一个私有函数log_message(),从公共过程中将共有功能移到一个私有函数中
SQL> create or replace package employee_pkg as
2 procedure print_ename(p_empno number);
3 procedure print_sal(p_empno number);
4 end employee_pkg;
5 --建立或重新定义程序包的主体
6 create or replace package body employee_pkg as
7 --编写log_message()过程
8   procedure log_message(p_message varchar2) is
9     pragma autonomous_transaction;
10     begin
11       insert into log_table(username,date_time,message)
12       values (user,current_date,p_message);
13       commit;
14       end log_message;
15 --编写函数，从emp表中返回一行记录
16 function get_emp_record(p_empno number) return emp%rowtype is
17    l_emp_record emp%rowtype;
18    begin
19      log_message('Looking for record where EMPNO='||p_empno);
20      select * into l_emp_record from emp
21      where empno=p_empno;
22      return l_emp_record;
23      exception
24        when NO_DATA_FOUND then
25          return null;
26          end get_emp_record;
27   --编写向屏幕输出，并且对输出进行日志记录的过程
28   procedure print_data(p_emp_record emp%rowtype,p_column varchar2) is
29     l_value varchar2(4000);
30     begin
31       if p_emp_record.empno is null then
32         log_message('NO DATA FOUND.');
33         dbms_output.put_line('NO DATA FOUND.');
34        else
35          case p_column
36            when 'ENAME'then
37              l_value:=p_emp_record.ename;
38             when 'SAL' then
39               l_value:=nvl(p_emp_record.sal,0);
40             else
41               l_value:='Invaild Column';
42               end case;
43               log_message('About to print'||p_column||l_value);
44               dbms_output.put_line(p_column||'='||l_value);
45               end if;
46               end print_data;
47 --重新实现公共过程，完成程序包
48 procedure print_ename(p_empno number) is
49    begin
50      print_data(get_emp_record(p_empno),'ENAME');
51      end print_ename;
52
53      procedure print_sal(p_empno number) is
54        begin
55          print_data(get_emp_record(p_empno),'SAL');
56          end print_sal;
57
58          end employee_pkg;
59 /

Warning: Package created with compilation errors

SQL> show error;
Errors for PACKAGE SCOTT.EMPLOYEE_PKG:

LINE/COL ERROR
-------- -------------------------------------------
6/1      PLS-00103: Encountered the symbol "CREATE"

请指点，谢谢！

Oracle 数据库

2014年4月27日 15:09

素草尘心
25
0 0 2

1个答案按时间排序按投票排序

0 0

在oracle create package语句中只creat package，也就是
1 create or replace package employee_pkg as
2 procedure print_ename(p_empno number);
3 procedure print_sal(p_empno number);
4 end employee_pkg;
后面的body体在package body 下进行管理。

2014年4月28日 15:59

malong301
30
0 0 2