創建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; 

這不應該與你得到的任何錯誤有任何關係。但它應該讓你的代碼更容易處理。