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;