What's the error in this package

Question

dear all,
can you plz tell me what's the erro in this package plz
SQL> CREATE OR REPLACE PACKAGE discounts
  2  IS
  3  g_id NUMBER := 7839;
  4  discount_rate NUMBER := 0.00;
  5  PROCEDURE display_price (p_price NUMBER);
  6  END discounts;
  7  /
Package created.
SQL>
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY discounts
  2  IS
  3  PROCEDURE display_price (p_price NUMBER)
  4  IS
  5  BEGIN
  6  DBMS_OUTPUT.PUT_LINE ( 'Discounted '
  7  ||TO_CHAR(p_price*NVL(discount_rate, 1)));
  8  END ;
  9  discount_rate:= 0.10;
10  END ;
11  /
Warning: Package Body created with compilation errors.
SQL>
SQL> show errors;
Errors for PACKAGE BODY DISCOUNTS:
LINE/COL ERROR
9/1      PLS-00103: Encountered the symbol "DISCOUNT_RATE" when expecting
         one of the following:
         begin end function package pragma procedure form
         The symbol "begin" was substituted for "DISCOUNT_RATE" to
         continue.
SQL>

Answer 1

if you want declare a private variable you need to declare at package body and remove from the package specification
something like this
@10g> CREATE OR REPLACE PACKAGE discounts
  2    IS
  3   g_id NUMBER := 7839;
  4    PROCEDURE display_price (p_price NUMBER);
  5    END discounts;
  6  /
Package created.
@10g> 
@10g> CREATE OR REPLACE PACKAGE BODY discounts
  2    IS
  3    discount_rate NUMBER := 0.10; /* Private declaration */
  4  
  5    PROCEDURE display_price (p_price NUMBER)
  6    IS
  7    BEGIN
  8    DBMS_OUTPUT.PUT_LINE ( 'Discounted '
  9    ||TO_CHAR(p_price*NVL(discount_rate, 1)));
10    END ;
11  END ;
12  /
Package body created.You can't assign values to variables out of procedure unless you declare and assign a initial value.
Edited by: dask99 on Oct 26, 2009 8:23 AM