Procedure & Function

Tujuan pembelajaran

1. Membuat dan memanggil CREATE OR REPLACE PROCEDURE.
2. Membedakan parameter IN, OUT, serta IN OUT.
3. Membangun fungsi RETURN yang bisa dipakai dalam SELECT.
4. Memvalidasi jumlah integer positif dan harga positif maksimal dua desimal.
5. Menguji INSERT/UPDATE dengan ID eksplisit dan rollback pemanggil.

Pokok bahasan / praktikum

Prasyarat: Modul 02/03, blok PL/SQL dan exception, serta transaksi modul 11. Sequence belum diperlukan: masukkan ID eksplisit yang belum dipakai.

Video pembelajaran

Video utama — fokus bab ini

Stored procedure, function RETURN, pemanggilan dan contoh validasi/insert Oracle. Video tambahan membahas IN, OUT dan IN OUT.

Oracle PL/SQL Stored Procedures and Functions
Clint Tuttle · Buka video utama di YouTube

Video tambahan sesuai subtopik

1. Procedure in plsql. In, out & In out parameter types explained with simple example.
   Swisstac

   Fokus: Parameter procedure Oracle PL/SQL: IN, OUT dan IN OUT dengan contoh.

Batas cakupan dan panduan menonton: Procedure dan function dibandingkan melalui praktik, termasuk perhitungan transaksi. Kepemilikan COMMIT/ROLLBACK tetap mengikuti pemanggil pada kode halaman.

Video merupakan pendamping, bukan pengganti keseluruhan bab. Pemeriksaan relevansi memakai transkrip yang tersedia, deskripsi pembuat dan bab waktu; bukan klaim seluruh durasi telah ditonton. Versi/editor atau bahasa dapat berbeda. Praktikum tetap mengikuti SQL/PLSQL Oracle pada halaman dan pilihan XE atau FreeSQL login. Jika pemutar dibatasi oleh YouTube, gunakan tautan Buka video.

Praktikum Oracle XE atau FreeSQL

Gunakan FreeSQL dengan login atau SQL Developer yang terhubung ke XE. Baca panduan dua jalur praktikum. Jalankan kode sesuai urutan dan keterangan tiap langkah.

Output contoh adalah prediksi berdasarkan dataset, bukan bukti bahwa kode telah dijalankan pada akun Anda. Periksa koneksi, hak membuat objek, autocommit dan panel DBMS_OUTPUT. Slash pada baris sendiri adalah pemisah mode skrip klien tertentu, bukan statement PL/SQL.

Gunakan tabel pertemuan02 dan data pertemuan03 atau setup index sekali. Periksa keadaan data bila latihan sebelumnya pernah di-commit. Jangan menjalankan ulang CREATE TABLE/INSERT atau menghapus data secara buta.

CREATE OR REPLACE FUNCTION fn_total_demo(p_jumlah IN NUMBER, p_harga IN NUMBER)
RETURN NUMBER IS
BEGIN
 IF p_jumlah IS NULL OR p_jumlah <= 0 OR p_jumlah <> TRUNC(p_jumlah) OR p_jumlah > 999999 THEN
  RAISE_APPLICATION_ERROR(-20001, 'Jumlah harus integer positif maksimal 999999');
 END IF;
 IF p_harga IS NULL OR p_harga <= 0 OR p_harga <> ROUND(p_harga,2) OR p_harga > 9999999999.99 THEN
  RAISE_APPLICATION_ERROR(-20002, 'Harga harus positif, maksimal dua desimal dan sesuai kapasitas kolom');
 END IF;
 RETURN p_jumlah * p_harga;
END;
/
SELECT fn_total_demo(2,30000) AS total FROM dual;
SELECT id_jual, fn_total_demo(jumlah,harga) AS subtotal FROM detail_jual_demo ORDER BY id_jual;

CREATE OR REPLACE PROCEDURE pr_ringkas_demo(
 p_jumlah IN NUMBER, p_harga IN NUMBER,
 p_total OUT NUMBER, p_panggilan IN OUT NUMBER
) IS
BEGIN
 IF p_panggilan IS NULL OR p_panggilan < 0 OR p_panggilan <> TRUNC(p_panggilan) THEN
  RAISE_APPLICATION_ERROR(-20003, 'Counter harus integer nonnegatif');
 END IF;
 p_total := fn_total_demo(p_jumlah,p_harga);
 p_panggilan := p_panggilan + 1;
END;
/
DECLARE
 v_total NUMBER;
 v_panggilan NUMBER := 0;
BEGIN
 pr_ringkas_demo(2,30000,v_total,v_panggilan);
 DBMS_OUTPUT.PUT_LINE('Total=' || v_total || ', panggilan=' || v_panggilan);
 pr_ringkas_demo(p_jumlah => 3,p_harga => 15000,p_total => v_total,p_panggilan => v_panggilan);
 DBMS_OUTPUT.PUT_LINE('Total=' || v_total || ', panggilan=' || v_panggilan);
END;
/

CREATE OR REPLACE PROCEDURE pr_buat_jual_demo(
 p_id IN NUMBER, p_pelanggan IN NUMBER, p_produk IN NUMBER, p_jumlah IN NUMBER
) IS
 v_dummy NUMBER;
 v_harga produk_demo.harga%TYPE;
 v_stok produk_demo.stok%TYPE;
 v_total NUMBER;
BEGIN
 IF p_id IS NULL OR p_id <= 0 OR p_id <> TRUNC(p_id) OR p_id > 99999999 THEN
  RAISE_APPLICATION_ERROR(-20004, 'ID penjualan integer positif maksimal 8 digit');
 END IF;
 BEGIN
  SELECT id_pelanggan INTO v_dummy FROM pelanggan_demo WHERE id_pelanggan = p_pelanggan;
 EXCEPTION WHEN NO_DATA_FOUND THEN RAISE_APPLICATION_ERROR(-20005, 'Pelanggan tidak ditemukan');
 END;
 BEGIN
  SELECT harga,stok INTO v_harga,v_stok FROM produk_demo WHERE id_produk = p_produk FOR UPDATE;
 EXCEPTION WHEN NO_DATA_FOUND THEN RAISE_APPLICATION_ERROR(-20006, 'Produk tidak ditemukan');
 END;
 v_total := fn_total_demo(p_jumlah,v_harga);
 IF v_stok < p_jumlah THEN RAISE_APPLICATION_ERROR(-20007, 'Stok tidak cukup'); END IF;
 INSERT INTO penjualan_demo(id_jual,id_pelanggan,tanggal,status)
 VALUES(p_id,p_pelanggan,SYSDATE,'BARU');
 INSERT INTO detail_jual_demo(id_jual,id_produk,jumlah,harga)
 VALUES(p_id,p_produk,p_jumlah,v_harga);
 UPDATE produk_demo SET stok = stok - p_jumlah WHERE id_produk = p_produk;
END;
/

DECLARE
 v_ada NUMBER;
BEGIN
 SELECT COUNT(*) INTO v_ada FROM penjualan_demo WHERE id_jual = 190;
 IF v_ada > 0 THEN RAISE_APPLICATION_ERROR(-20008, 'ID 190 terpakai: pilih ID eksplisit lain'); END IF;
 pr_buat_jual_demo(190,1,11,2);
 FOR r IN (SELECT id_jual,jumlah,harga FROM detail_jual_demo WHERE id_jual = 190) LOOP
  DBMS_OUTPUT.PUT_LINE('Penjualan=' || r.id_jual || ', jumlah=' || r.jumlah);
 END LOOP;
 ROLLBACK;
EXCEPTION WHEN OTHERS THEN
 ROLLBACK;
 RAISE;
END;
/
SELECT COUNT(*) AS sisa_uji FROM penjualan_demo WHERE id_jual = 190;
SELECT stok FROM produk_demo WHERE id_produk = 11;

DECLARE
 v_total NUMBER;
BEGIN
 BEGIN
  v_total := fn_total_demo(1.5,30000);
  RAISE_APPLICATION_ERROR(-20990,'Uji gagal: pecahan diterima');
 EXCEPTION WHEN OTHERS THEN
  IF SQLCODE <> -20001 THEN RAISE; END IF;
  DBMS_OUTPUT.PUT_LINE('Ditolak sesuai kontrak: ' || SQLERRM);
 END;
 BEGIN
  v_total := fn_total_demo(1,100.123);
  RAISE_APPLICATION_ERROR(-20990,'Uji gagal: tiga desimal diterima');
 EXCEPTION WHEN OTHERS THEN
  IF SQLCODE <> -20002 THEN RAISE; END IF;
  DBMS_OUTPUT.PUT_LINE('Ditolak sesuai kontrak: ' || SQLERRM);
 END;
 BEGIN
  pr_buat_jual_demo(191,1,14,1);
  RAISE_APPLICATION_ERROR(-20990,'Uji gagal: stok kosong diterima');
 EXCEPTION WHEN OTHERS THEN
  IF SQLCODE <> -20007 THEN RAISE; END IF;
  DBMS_OUTPUT.PUT_LINE('Ditolak sesuai kontrak: ' || SQLERRM);
 END;
 ROLLBACK;
EXCEPTION WHEN OTHERS THEN ROLLBACK; RAISE;
END;
/

SELECT name, type, line, position, text
FROM user_errors
WHERE name IN ('FN_TOTAL_DEMO','PR_RINGKAS_DEMO','PR_BUAT_JUAL_DEMO')
ORDER BY name, type, sequence;
SELECT object_name, status FROM user_objects WHERE object_name IN ('FN_TOTAL_DEMO','PR_RINGKAS_DEMO','PR_BUAT_JUAL_DEMO');

Tugas / latihan

1. Pada XE lokal ATAU FreeSQL milik sendiri, buat fungsi diskon dengan parameter nominal positif maksimal dua desimal; tolak input tidak valid.
2. Panggil procedure parameter melalui positional dan named notation; tampilkan perubahan OUT serta IN OUT.
3. Uji penjualan dengan ID eksplisit kosong, pelanggan/produk tidak ada, dan stok kurang; rollback perubahan pada koneksi latihan.
4. Sertakan definisi lengkap, USER_ERRORS aktual, prediksi versus hasil, serta penjelasan pemilik transaksi.

Pertanyaan analisis

1. Apakah rollback tabel mengembalikan nilai variabel IN OUT? Jelaskan perbedaan memori PL/SQL dan transaksi.
2. Mengapa harga harus diperiksa sebelum masuk kolom NUMBER(12,2), bukan setelah database membulatkannya?

Pengumpulan

Tugas boleh dikerjakan di Oracle XE lokal atau FreeSQL dengan login; cukup pilih salah satu. Kumpulkan satu laporan melalui LMS/kanal yang ditetapkan dosen. Cantumkan Nama, NPM, pertemuan dan lingkungan yang dipakai. Sertakan kode SQL/PLSQL sebagai teks, output aktual atau pesan error, serta jawaban analisis.

Jika FreeSQL menyediakan tautan berbagi yang dapat diakses dosen, tautan boleh ditambahkan sebagai bukti pendamping, bukan pengganti hasil eksekusi yang terdokumentasi. Jangan membagikan password, token atau koneksi pribadi.

Hasil yang belum dieksekusi diberi label “prediksi”. Screenshot ilustrasi browser bukan bukti praktikum Oracle.

Rubrik penilaian

• Ketepatan konsep dan rancangan: 20%
• Kebenaran query/program: 30%
• Pengujian normal, batas dan gagal: 20%
• Analisis serta penjelasan hasil: 20%
• Identitas dan kerapian laporan: 10%

Referensi resmi

• Oracle 19c — PL/SQL Subprograms
• Oracle 19c — COMMIT
• Oracle 19c — SELECT, FOR UPDATE
• Oracle 19c — USER_ERRORS

Panduan XE21c digunakan untuk konteks instalasi lokal; dokumentasi SQL/PLSQL untuk konsep bahasa. Versi FreeSQL/editor dapat berbeda, sehingga periksa fitur dan pesan aktual.