Control Structure, Loop & Exception

Tujuan pembelajaran

1. Menulis IF, ELSIF, nested IF serta CASE dengan cabang lengkap.
2. Memilih LOOP, WHILE dan FOR serta menempatkan EXIT secara aman.
3. Menangani NO_DATA_FOUND, TOO_MANY_ROWS dan ZERO_DIVIDE secara spesifik.
4. Mendefinisikan exception sendiri dan memakai RAISE_APPLICATION_ERROR untuk validasi.
5. Menjelaskan alur sesudah exception tanpa menelan error atau mengambil alih transaksi pemanggil.

Pokok bahasan / praktikum

Prasyarat: Selesaikan modul 02/03 atau jalankan setup bersama sekali pada schema latihan sendiri. Gunakan Oracle XE lokal melalui SQL Developer ATAU Oracle FreeSQL setelah login pada schema pribadi yang diizinkan; tidak harus memakai keduanya. Jangan menjalankan ulang CREATE TABLE/seed pada objek yang sudah ada. Selesaikan modul SQL sebelumnya; modul 10 juga memerlukan dasar blok modul 09.

Video pembelajaran

Video utama — fokus bab ini

IF/ELSE, CASE dan loop Oracle PL/SQL; referensi kedua melengkapi exception handling.

Oracle PLSQL - IF Else, CASE, Loops
Ora Trainings · Buka video utama di YouTube

Video tambahan sesuai subtopik

1. Oracle PL/SQL Tutorial Day -25 ✅ Exception handling in PLSQL✅
   NIC IT ACADEMY

   Fokus: Exception handling dalam Oracle PL/SQL.

Batas cakupan dan panduan menonton: Menggantikan video CASE saja. Custom exception dan RAISE_APPLICATION_ERROR tetap mengikuti contoh serta pengujian pada 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.

DECLARE
  v_stok NUMBER := 20;
  v_jumlah NUMBER := 2;
  v_status VARCHAR2(12) := 'BARU';
BEGIN
  IF v_jumlah IS NULL OR v_jumlah <= 0 THEN
    DBMS_OUTPUT.PUT_LINE('Jumlah tidak valid');
  ELSIF v_stok IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('Stok belum diketahui');
  ELSIF v_jumlah > v_stok THEN
    DBMS_OUTPUT.PUT_LINE('Stok kurang');
  ELSE
    IF v_status = 'BARU' THEN
      DBMS_OUTPUT.PUT_LINE('Siap diperiksa');
    ELSE
      DBMS_OUTPUT.PUT_LINE('Status bukan BARU');
    END IF;
  END IF;
END;
/

DECLARE
  v_status VARCHAR2(12) := 'LUNAS';
  v_stok NUMBER := 0;
BEGIN
  CASE v_status
    WHEN 'BARU' THEN DBMS_OUTPUT.PUT_LINE('Menunggu proses');
    WHEN 'LUNAS' THEN DBMS_OUTPUT.PUT_LINE('Pembayaran tercatat');
    WHEN 'BATAL' THEN DBMS_OUTPUT.PUT_LINE('Dibatalkan');
    ELSE DBMS_OUTPUT.PUT_LINE('Status tidak dikenali');
  END CASE;
  CASE
    WHEN v_stok IS NULL THEN DBMS_OUTPUT.PUT_LINE('Stok tidak diketahui');
    WHEN v_stok = 0 THEN DBMS_OUTPUT.PUT_LINE('Stok kosong');
    WHEN v_stok < 10 THEN DBMS_OUTPUT.PUT_LINE('Stok rendah');
    ELSE DBMS_OUTPUT.PUT_LINE('Stok mencukupi');
  END CASE;
END;
/

DECLARE
  v_i PLS_INTEGER := 1;
BEGIN
  LOOP
    DBMS_OUTPUT.PUT_LINE('LOOP i=' || v_i);
    EXIT WHEN v_i >= 3;
    v_i := v_i + 1;
  END LOOP;
  v_i := 1;
  LOOP
    IF v_i > 2 THEN
      EXIT;
    END IF;
    DBMS_OUTPUT.PUT_LINE('EXIT biasa i=' || v_i);
    v_i := v_i + 1;
  END LOOP;
END;
/

DECLARE
  v_i PLS_INTEGER := 1;
BEGIN
  WHILE v_i <= 3 LOOP
    DBMS_OUTPUT.PUT_LINE('WHILE i=' || v_i);
    v_i := v_i + 1;
  END LOOP;
  FOR k IN 1..3 LOOP
    DBMS_OUTPUT.PUT_LINE('FOR k=' || k);
  END LOOP;
  FOR k IN REVERSE 1..3 LOOP
    DBMS_OUTPUT.PUT_LINE('FOR turun k=' || k);
  END LOOP;
END;
/

DECLARE
  v_nama pelanggan_demo.nama%TYPE;
  v_hasil NUMBER;
  v_pembagi NUMBER := 0;
BEGIN
  BEGIN
    SELECT nama INTO v_nama FROM pelanggan_demo WHERE 1=0;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('Tidak ada pelanggan cocok');
  END;
  BEGIN
    SELECT nama INTO v_nama FROM pelanggan_demo;
    DBMS_OUTPUT.PUT_LINE('Hanya satu pelanggan pada schema ini');
  EXCEPTION
    WHEN TOO_MANY_ROWS THEN DBMS_OUTPUT.PUT_LINE('Lebih dari satu pelanggan');
    WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('Tabel pelanggan kosong');
  END;
  BEGIN
    v_hasil := 100 / v_pembagi;
    DBMS_OUTPUT.PUT_LINE('Baris ini tidak dijalankan jika pembagi nol');
  EXCEPTION
    WHEN ZERO_DIVIDE THEN DBMS_OUTPUT.PUT_LINE('Pembagian dengan nol ditolak');
  END;
  DBMS_OUTPUT.PUT_LINE('Percobaan selesai pada blok luar');
END;
/

DECLARE
  e_stok_kurang EXCEPTION;
  v_stok NUMBER := 2;
  v_diminta NUMBER := 3;
BEGIN
  IF v_diminta > v_stok THEN
    RAISE e_stok_kurang;
  END IF;
  DBMS_OUTPUT.PUT_LINE('Stok memenuhi permintaan');
EXCEPTION
  WHEN e_stok_kurang THEN
    DBMS_OUTPUT.PUT_LINE('Permintaan ditolak: stok kurang');
END;
/

DECLARE
  v_harga NUMBER;
BEGIN
  FOR i IN 1..5 LOOP
    v_harga := CASE i
      WHEN 1 THEN 0
      WHEN 2 THEN -1
      WHEN 3 THEN NULL
      WHEN 4 THEN 15000.25
      ELSE 15000.251
    END;
    BEGIN
      IF v_harga IS NULL OR v_harga <= 0 OR v_harga <> ROUND(v_harga,2) THEN
        RAISE_APPLICATION_ERROR(-20001, 'Harga wajib positif dan maksimal dua desimal');
      END IF;
      DBMS_OUTPUT.PUT_LINE('Valid: ' || v_harga);
    EXCEPTION
      WHEN OTHERS THEN
        IF SQLCODE = -20001 THEN
          DBMS_OUTPUT.PUT_LINE('Ditolak: ' || SQLERRM);
        ELSE
          RAISE;
        END IF;
    END;
  END LOOP;
END;
/

BEGIN
  RAISE_APPLICATION_ERROR(-20002, 'Contoh kegagalan yang diteruskan ke pemanggil');
END;
/

Tugas / latihan

1. Pada XE ATAU FreeSQL schema pribadi, uji semua cabang IF/ELSIF/nested IF dan dua CASE; buat tabel kondisi input dan output aktual.
2. Tulis LOOP, WHILE dan FOR yang dibatasi jelas; gunakan EXIT serta EXIT WHEN, lalu jelaskan alasan loop berhenti.
3. Jalankan uji tiga exception bawaan, custom exception dan validasi RAISE_APPLICATION_ERROR. Sertakan kasus harga NULL, nol, negatif, dua desimal dan lebih dari dua desimal; tidak perlu mengubah tabel.

Pertanyaan analisis

1. Mengapa handler yang hanya mencetak berhasil lalu mengabaikan WHEN OTHERS berbahaya bagi pemanggil? Jelaskan kapan RAISE kembali diperlukan.
2. Mengapa NUMBER(12,2) pada variabel masukan dapat merusak uji deteksi desimal berlebih, dan bagaimana kontrak transaksi harus tetap dimiliki pemanggil?

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 Control Statements
• Oracle 19c — PL/SQL Error Handling
• Oracle 19c — SELECT INTO

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