PLSQL

1.      LA 1 (Nama, Npm, Kelas)

set serveroutput on

declare

nama varchar(20);

npm char(8);

kelas varchar(5);

begin

nama:='Defita';

npm:='11112802';

kelas:='3KA01';

DBms_output.put_line('Saya mahasiswi Universitas Gunadarma dengan nama '||nama||' npm '||npm||' dan kelas '||kelas);

end;

/

Pada LA1 ini akan dibuat program dengan output nama, npm, dan kelas. Agar memudahkan penulisan program maka dibutuhkan notepad, cukup dengan memanggil “ed nama_file.sql” ata “edit nama_file.sql”. Setelah program diketikkan, perlu “@nama_file.sql” untuk memanggil program.

·         Set serveroutput on berfungsi untuk mengeluarkan output setelah data diinput.

·         Declare berfungsi untuk mendeklarasikan variabel-variabel beserta dengan tipe datanya. Declare berisi :

o   Nama dengan tipe data varchar dan length 20.

o   Npm dengan tipe data char dan length 8.

o   kelas dengan tipe data varchar dan length 5.

·         Lalu Begin untuk memulai program. Pada Begin sudah diinputkan data :

o   Nama : Defita

o   Npm : 11112802

o   Kelas : 3KA01

·         DBms_output.put_line untuk mengeluarkan output yang diinginkan. Pada kali ini output akan keluar “Saya mahasiswi Universitas Gunadarma dengan nama defita npm 11112802 dan kelas 3ka01”.

·         Lalu end; untuk menghentikan blok program. Dan tanda “/” untuk menghentikan keseluruhan program.

2.      LA 2 (Prosedur Luas jajargenjang)

set serveroutput on

set verify off

create or replace procedure luas_jajargenjang as

alas int;

tinggi int;

luas int;

begin

alas:='&alas';

tinggi:='&tinggi';

luas:=alas*tinggi;

DBms_output.put_line('Luas jajargenjang dengan alas '||alas||' dan tinggi '||tinggi||' adalah '||luas);

end;

/

Pada LA2 ini akan dibuat program perhitungan Luas Jajargenjang.

·         Set serveroutput on berfungsi untuk mengeluarkan output setelah data diinput.

·         Set verify off berfungsi untuk menghilangkan informasi tentang data yang diinput. Seperti contoh di bawah :

·         create or replace procedure luas_jajargenjang as berfungsi untuk membuat sebuah prosedur dengan nama “luas_jajargenjang”.

·         Lalu setelah itu akan dideklarasikan :

o   Alas dengan tipe data integer

o   Tinggi dengan tipe data integer

o   Luas dengan tipe data integer

·         Lalu Begin untuk memulai program. Pada Begin akan dimasukkan data untuk :

o   Alas dengan coding “ alas:='&alas'; “

o   Tinggi dengan coding “ tinggi:='&tinggi'; “

o   Luas dengan perhitungan luas jajargenjang “luas:=alas*tinggi; “

·         DBms_output.put_line untuk mengeluarkan output yang diinginkan. Pada kali ini output akan keluar “'Luas jajargenjang dengan alas (nilai alas) dan tinggi (nilai tinggi) adalah (hasil luas).

·         Lalu end; untuk menghentikan blok program. Dan tanda “/” untuk menghentikan keseluruhan program.

·         Setelah itu execute luas_jajargenjang untuk memanggil prosedur dan menampilkan outputnya.

3.      LA 3 (Function)

Bentuk umum dari Function adalah :

CREATE OR REPLACE FUNCTION nama_fungsi
(parameter1 tipe_data,...)
RETURN tipedata_fungsi IS
variable_lokal
BEGIN
statement;
...
RETURN nilai_fungsi;
END;

Contoh :

create or replace function 

pangkat (bil int, n int) 

return integer as hasil int(10); 

i int; 

begin 

hasil :=1; 

for i in 1..n loop 

hasil:= hasil*bil; 

end loop; 

return hasil; 

end; 

/ 

Setelah fungsi terbuat. maka kini kita dapat memanggilnya, seperti contoh di bawah ini :

declare  

h int; 

begin 

h:=pangkat(2,3); 

dbms_output.put_line('Hasil:'||to_char(h)); 

end; 

/