Contoh Program Function

Function Tulis

Create or replace function tulis return varchar2 as
Z varchar2(20);
Begin
Z := ‘HALO SEMUA’;
Return Z;
End;

Set serveroutput on
Declare
Z varchar2(20);
Begin
Z := tulis;
Dbms_output.put_line(Z);
End;

Output :
HALO SEMUA

LOGIKA :

Program diatas adalah untuk membuat tulisan dengan menggunakan function. Dimana Z bertipe data varchar2. Fungsi pertama dibuat pada blok program pertama. Pada blok program kedua, tinggal memanggil fungsi yang telah dibuat pada blok pertama dengan menuliskan code Z:=tulis dan dbms_output,put_line(Z) sebagai outputnya.


Function Pangkat


Create or replace function pangkat (bil integer, n integer) return integer as
Hasil integer(10);
I integer;
Begin
Hasil = 1;
For I in 1..n loop
Hasil := hasil*bil;
End loop;
Return hasil;
End;

Set serveroutput on
Declare
H integer;
Begin
H := pangkat (2,3);
Dbms_output.put_line (‘Hasil : ‘ || to_char(H));
End;

Output :
Hasil : 8

LOGIKA :

Program diatas adalah untuk mencari pangkat dari suatu bilangan dengan menggunakan function dalam PL/SQL. Tipe data bil, n, Hasil dan H adalah integer. Pada blok program pertama dijelaskan tentang pembuatan rumus untuk bilangan berpangkat. Ditunjukkan dengan :

Hasil = 1;
For I in 1..n loop
Hasil := hasil*bil;

Sedangkan pada blok program yang kedua, dilakukan pemanggilan parameter pada blok pertama dan menentukan bilangan dan pangkatnya. Yaitu pada :

H := pangkat (2,3);
Dbms_output.put_line (‘Hasil : ‘ || to_char(H));

sumber : http://mamatbinmoncoy.blogspot.com/2012/07/contoh-program-plsql-bag5.html