declare

vid memiliki.id_laptop%type;

vstock memiliki.stock%type;

vid_jen memiliki.id_jenis%type;

voutput varchar2(10);

vtgl date := sysdate;

cursor curmemiliki is select id_laptop, stock,id_jenis from memiliki;

begin

open curmemiliki;

fetch curmemiliki into vid,vstock,vid_jen;

dbms_output.put_line(' ----------------------------------------------------------------- ');

dbms_output.put_line(' Laporan Data Stok Laptop ');

dbms_output.put_line(' per tanggal '||sysdate);

dbms_output.put_line(' -----------------------------------------------------------------');

dbms_output.put_line(' id_laptop stock id_jenis keterangan');

dbms_output.put_line(' _________________________________________________________________ ');

while curmemiliki%found loop

if vstock>5 then

voutput:= 'banyak';

elsif vstock>2 then

voutput:= 'cukup';

else

voutput:= 'kurang';

end if;

dbms_output.put_line(' '||vid||' '||vstock||' '||vid_jen||' '||voutput);

fetch curmemiliki into vid, vstock, vid_jen;

end loop;

dbms_output.put_line(' -----------------------------------------------------------------');

close curmemiliki;

end;

/

create or replace procedure transaksi_member

is

vid_laptop memesan.id_laptop%type;

vbanyaknya memesan.banyaknya%type;

vharga memesan.harga%type;

v_member memesan.id_member%type;

vtgl date :=sysdate;

cursor curtrans is Select Id_member,id_laptop,banyaknya,harga from memesan;

begin

open curtrans;

fetch curtrans into v_member,vid_laptop,vbanyaknya,vharga;

dbms_output.put_line(' -----------------------------------------------');

dbms_output.put_line(' Data Pemesanan Member New Store');

dbms_output.put_line(' Sampai Tanggal '||vtgl);

dbms_output.put_line(' -----------------------------------------------');

dbms_output.put_line(' id_laptop'||' '||'id_member'||' '||'banyaknya'||' '||' harga');

dbms_output.put_line(' -----------------------------------------------');

while curtrans%found loop

dbms_output.put_line(' '||vid_laptop||' ' ||v_member||' '|| vbanyaknya||' ' || vharga);

fetch curtrans into v_member, vid_laptop,vbanyaknya,vharga;

end loop;

dbms_output.put_line(' ------------------------------------------------');

close curtrans;

end;

“ I’m the girl who won’t show when things make me upset. When you flirt with other girls and I get teary, I’ll blame it on the wind. When you ignore me in the hallways, I’ll move on like it’s nothing. But boy, you have no idea how much pain you are causing me “