创建 Oracle 包主体
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/13770508/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Create Oracle Package Body
提问by user1408057
I am trying to lay the foundation for a package but am having trouble even getting started. I have successfully created a basic package spec and want to just test the package body but I'm having trouble getting it to compile. The spec code is:
我正在尝试为软件包奠定基础，但即使开始也遇到了麻烦。我已经成功创建了一个基本的包规范，只想测试包体，但我无法编译它。规范代码是：
CREATE OR REPLACE PACKAGE synchronize_my_data
AS
PROCEDURE synchronize_data(p_run_date IN date);
END synchronize_my_data;
and here is the package body code:
这是包体代码：
CREATE OR REPLACE PACKAGE BODY synchronize_my_data
IS
PROCEDURE synchronize_data(p_run_date IN date) IS
PROCEDURE process_deletes(p_run_date IN date) IS
BEGIN
dbms_output.put_line('Run Date: ' || to_char(p_run_date, 'MM/DD/YYYY'));
END process_deletes;
BEGIN
process_deletes(p_run_date);
END synchronize_data;
END synchronize_my_data;
I keep getting a compilation error but can't figure out what's wrong with the code. It seems like basic code, am I just missing something obvious?
我不断收到编译错误，但无法弄清楚代码有什么问题。这似乎是基本代码，我是否只是遗漏了一些明显的东西？
回答by Justin Cave
That code seems to compile for me. What error are you getting?
该代码似乎为我编译。你遇到了什么错误？
SQL> CREATE OR REPLACE PACKAGE synchronize_my_data
2 AS
3 PROCEDURE synchronize_data(p_run_date IN date);
4 END synchronize_my_data;
5 /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY synchronize_my_data
2 IS
3 PROCEDURE synchronize_data(p_run_date IN date) IS
4 PROCEDURE process_deletes(p_run_date IN date) IS
5 BEGIN
6 dbms_output.put_line('Run Date: ' || to_char(p_run_date, 'MM/DD/YYYY'));
7 END process_deletes;
8 BEGIN
9 process_deletes(p_run_date);
10 END synchronize_data;
11
12 END synchronize_my_data;
13 /
Package body created.
From a general stylistic standpoint, it generally makes very little sense to define a procedure within another procedure in a package body. One of the benefits of using packages is that you can have both public and private procedures. You can create the process_deletesprocedure as a private procedure simply by defining it in the body without defining it in the spec.
从一般风格的角度来看，在包体的另一个过程中定义一个过程通常意义不大。使用包的好处之一是您可以同时拥有公共和私有过程。您可以将process_deletes过程创建为私有过程，只需在主体中定义它，而无需在规范中定义它。
CREATE OR REPLACE PACKAGE BODY synchronize_my_data
IS
PROCEDURE process_deletes(p_run_date IN date)
IS
BEGIN
dbms_output.put_line('Run Date: ' || to_char(p_run_date, 'MM/DD/YYYY'));
END process_deletes;
PROCEDURE synchronize_data(p_run_date IN date)
IS
BEGIN
process_deletes(p_run_date);
END synchronize_data;
END synchronize_my_data;
That shouldn't have anything to do with whatever error you're getting. But it should make your code easier to deal with.
这不应该与您遇到的任何错误有关。但它应该使您的代码更易于处理。
