Apex Oracle Erfolg mit Kompilierungsfehler

Question

Ich versuche, eine Körper PACKAGE in SQL zu erstellen, die 3 Prozeduren zum Hinzufügen eines Kunden, Entfernen eines Kunden und Auflisten aller Kunden enthält. Aber es gibt mir den Fehler ORA-24344.

Dies ist mein Code:

CREATE OR REPLACE PACKAGE BODY c_package AS 
--Adds a customer 
PROCEDURE addCustomer(c_id customers.id%type, 
c_name customers.name%type, 
c_age customers.age%type, 
c_addr customers.address%type, 
c_sal customers.salary%type) 
IS 
BEGIN 
    INSERT INTO customers(id,name,age,address,salary) 
    VALUES(c_id,c_name,c_age,c_addr,c_sal); 
END addCustomer; 

--Removes a customer 
PROCEDURE delCutomer(c_id customers.id%TYPE) IS 
BEGIN 
    DELETE FROM customers 
    WHERE id = c_id; 
END delCustomer; 

--Lists all customers 
PROCEDURE listCustomer IS 
CURSOR c_customers is 
    SELECT name FROM customers; 
TYPE c_list is TABLE OF customers.name%type; 
name_list c_list := c_list(); 
counter integer := 0; 
BEGIN 
    FOR n IN c_customers LOOP 
    counter := counter + 1; 
    name_list.extend; 
    name_list(counter) := n.name; 
    dbms_output.put_line('Customer(' ||counter||') '||name_list(counter)); 
    END LOOP; 
END listCustomer; 

END c_package; 

Answer 1

Das Problem war, dass das Verfahren in der Verpackung BODY beendet werden mußte, mit nur einem „END“ nicht „END procedure_name“.

Dies ist der richtige Code:

CREATE OR REPLACE PACKAGE BODY c_package AS 
--Adds a customer 
PROCEDURE addCustomer(c_id customers.id%type, 
c_name customers.name%type, 
c_age customers.age%type, 
c_addr customers.address%type, 
c_sal customers.salary%type) 
IS 
BEGIN 
    INSERT INTO customers(id,name,age,address,salary) 
    VALUES(c_id,c_name,c_age,c_addr,c_sal); 
END; 

--Removes a customer 
PROCEDURE delCutomer(c_id customers.id%TYPE) IS 
BEGIN 
    DELETE FROM customers 
    WHERE id = c_id; 
END; 

--Lists all customers 
PROCEDURE listCustomer IS 
CURSOR c_customers is 
    SELECT name FROM customers; 
TYPE c_list is TABLE OF customers.name%type; 
name_list c_list := c_list(); 
counter integer := 0; 
BEGIN 
    FOR n IN c_customers LOOP 
    counter := counter + 1; 
    name_list.extend; 
    name_list(counter) := n.name; 
    dbms_output.put_line('Customer(' ||counter||') '||name_list(counter)); 
    END LOOP; 
END; 

END c_package;