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;

/