CREATE OR REPLACE PROCEDURE Pubdog
AS
BEGIN
  DECLARE
    v_pname  VARCHAR2(60);
    v_total  NUMBER;
    CURSOR c_publisher IS
      SELECT Sum(orderitems.quantity * books.cost)
      INTO   v_total
      FROM   books,
             publisher,
             orderitems,
             orders
      WHERE  books.pubid = publisher.pubid
             AND books.isbn = orderitems.isbn
             AND orderitems.order# = orders.order#
             AND publisher.NAME = v_pname;
  BEGIN
    OPEN c_publisher;
    
    dbms_output.Put_line('THE TOTAL AMOUNT FOR '
                         ||v_pname
                         ||' IS '
                         ||v_total);
    
    IF no_data_found THEN
      dbms_output.Put_line('NO RESULT AVAILABLE');
      
      EXIT;
    END IF;
    
    CLOSE c_publisher;
  END;
END pubdog;
/ 

  1  CREATE OR REPLACE PROCEDURE Pubdog
  2  AS
  3  BEGIN
  4    DECLARE
  5	 v_pname  VARCHAR2(60);
  6	 v_total  NUMBER;
  7	 CURSOR c_publisher IS
  8	   SELECT Sum(orderitems.quantity * books.cost)
  9	   INTO   v_total
 10	   FROM   books,
 11		  publisher,
 12		  orderitems,
 13		  orders
 14	   WHERE  books.pubid = publisher.pubid
 15		  AND books.isbn = orderitems.isbn
 16		  AND orderitems.order# = orders.order#
 17		  AND publisher.NAME = v_pname;
 18    BEGIN
 19	 OPEN c_publisher;
 20	 dbms_output.Put_line('THE TOTAL AMOUNT FOR '
 21			      ||v_pname
 22			      ||' IS '
 23			      ||v_total);
 24	 IF no_data_found THEN
 25	   dbms_output.Put_line('NO RESULT AVAILABLE');
 26	   EXIT;
 27	 END IF;
 28	 CLOSE c_publisher;
 29    END;
 30* END pubdog;
 31  /

Warning: Procedure created with compilation errors.

SQL> show error
Errors for PROCEDURE PUBDOG:

LINE/COL
---------------------------------------------------------------------------------
ERROR
-----------------------------------------------------------------------------------------------------------------------------------
8/7
PL/SQL: SQL Statement ignored
13/14
PL/SQL: ORA-00942: table or view does not exist
24/5
PL/SQL: Statement ignored
24/8
PLS-00320: the declaration of the type of this expression is incomplete or malformed
SQL>