创建Oracle包体

Question

我想为包打下基础，但即使入门也遇到困难。我已经成功创建了一个基本的包规范，并且只想测试包体，但是我无法编译它。该规范的代码是：

CREATE OR REPLACE PACKAGE synchronize_my_data 
AS 
    PROCEDURE synchronize_data(p_run_date IN date); 
END synchronize_my_data; 

，这里是包体代码：

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; 

我不断收到一个编译错误，但无法弄清楚什么是错的代码。它看起来像基本代码，我只是错过了一些明显的东西？

Answer 1

该代码似乎为我编译。你遇到了什么错误？

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. 

从一般的文体角度来看，在包体中的另一个过程中定义一个过程通常是没有意义的。使用软件包的好处之一是您可以同时拥有公共和私人程序。您可以创建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; 

这不应该与你得到的任何错误有任何关系。但它应该让你的代码更容易处理。