TUGAS PEMROGRAMAN TINGKAT 4.

SOAL1. Buatlah Function untuk mendapatkan stock barang berdasarkan kode barang ?

Sp_cek_stok (‘k001’)
2. Buatlah procedure untuk update stok barang berdasarkan kode barang ?
Sp_update_stok (‘k001’,’+’,50)
Sp_update_stok (‘k002’,’-‘,30)

JAWABAN
1. CREATE OR REPLACE FUNCTION sp_cek_stok (kd_brg IN VARCHAR)
RETURN NUMBER
IS
stock NUMBER;
BEGIN
SELECT stok INTO stock FROM barang WHERE kode_barang=kd_brg;
RETURN stock;
END;

Memanggilnya :
BEGIN
DBMS_OUTPUT.PUT_LINE(‘Stok Barang:’||TO_CHAR(sp_cek_stok(‘k001’)));
END;

2. CREATE OR REPLACE FUNCTION sp_update_stok (kd_brg IN VARCHAR)
IS
stock NUMBER;
BEGIN
IF kd_brg=’k001’ THEN
stock:=stok+50
ELSE stock:=stok-30
UPDATE barang SET stok=stock
WHERE kode_barang=kd_brg;
DBMS_OUTPUT.PUT_LINE(‘Stok Barang:’||stock);
END;

Memanggilnya :
EXECUTE sp_update_stok (‘k001’,’+’,50);
EXECUTE sp_update_stok (‘k002’,’-‘,30);