pl/sql function

 1  --  function 1: get hisal according to the grade(1 parameter)
 2  Create   or   replace   function  getHisalAccordingGrade(inGrade  in  salgrade.hisal % type)
 3    return  salgrade.hisal % type
 4    as
 5   outHisal salgrade.hisal % type;
 6    begin
 7      select  hisal  into  outHisal 
 8      from  salgrade  where  grade  =  inGrade;
 9      return  outHisal;
10    end ;
11   
12   
13    set  serveroutput  on ;
14    declare  
15   varHisal salgrade.hisal % type;
16    begin
17   varHisal : =  getHisalAccordingGrade( 1 );
18   dbms_output.put_line(varHisal);
19    end ;
20   
21    --  function 2: get the average of the hisal(no in-parameter)
22    create   or   replace   function  getAverageHisal
23    return  salgrade.hisal % type
24    as
25   outAvgHisal salgrade.hisal % type;
26    begin
27    select   AVG (hisal)  into  outAvgHisal
28    from  salgrade;
29    return  outAvgHisal;
30    end ;
31   
32    set  serveroutput  on ;
33    declare  
34   varHisal salgrade.hisal % type;
35    begin
36   varHisal : =  getAverageHisal();
37   dbms_output.put_line(varHisal);
38    end ;
39   
40