Cursor & Transaction PL/SQL

Tujuan pembelajaran

1. Membedakan implicit cursor, explicit cursor, dan SELECT INTO.
2. Menjalankan OPEN, FETCH, CLOSE serta cursor FOR loop.
3. Menggunakan cursor berparameter dan empat atribut cursor secara tepat.
4. Mengendalikan COMMIT, ROLLBACK, serta SAVEPOINT tanpa mengubah seed permanen.

Pokok bahasan / praktikum

Prasyarat: Modul 02/03 dan blok PL/SQL, IF, LOOP, exception modul 09/10. Tidak memerlukan sequence atau package modul 13.

Video pembelajaran

Video utama — fokus bab ini

Implicit/explicit cursor, parameterized cursor dan proses fetch Oracle PL/SQL.

Oracle PLSQL - CURSOR (Implicit and Explicit)
Ora Trainings · Buka video utama di YouTube

Batas cakupan dan panduan menonton: Video ini khusus cursor. Gabungkan dengan kontrol transaksi COMMIT/ROLLBACK/SAVEPOINT pada praktikum11 dan pengantar transaksi pertemuan03; jangan menempatkan COMMIT otomatis di setiap fetch.

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_baris PLS_INTEGER;
BEGIN
 SAVEPOINT awal_11;
 UPDATE produk_demo SET stok = stok + 1 WHERE id_produk = 11;
 v_baris := SQL%ROWCOUNT;
 IF SQL%FOUND THEN DBMS_OUTPUT.PUT_LINE('UPDATE menemukan produk'); END IF;
 IF NOT SQL%NOTFOUND THEN DBMS_OUTPUT.PUT_LINE('Bukan hasil kosong'); END IF;
 IF NOT SQL%ISOPEN THEN DBMS_OUTPUT.PUT_LINE('Implicit cursor tertutup'); END IF;
 DBMS_OUTPUT.PUT_LINE('Baris berubah=' || v_baris);
 ROLLBACK TO awal_11;
EXCEPTION WHEN OTHERS THEN
 ROLLBACK TO awal_11;
 RAISE;
END;
/
SELECT id_produk, stok FROM produk_demo WHERE id_produk = 11;

DECLARE
 CURSOR c_produk IS SELECT id_produk, nama_produk, stok FROM produk_demo ORDER BY id_produk;
 r c_produk%ROWTYPE;
BEGIN
 OPEN c_produk;
 LOOP
  FETCH c_produk INTO r;
  EXIT WHEN c_produk%NOTFOUND;
  IF c_produk%FOUND THEN
   DBMS_OUTPUT.PUT_LINE(r.id_produk || ': ' || r.nama_produk || ', stok=' || r.stok);
  END IF;
 END LOOP;
 DBMS_OUTPUT.PUT_LINE('Fetched=' || c_produk%ROWCOUNT);
 CLOSE c_produk;
 IF NOT c_produk%ISOPEN THEN DBMS_OUTPUT.PUT_LINE('Cursor telah ditutup'); END IF;
EXCEPTION WHEN OTHERS THEN
 IF c_produk%ISOPEN THEN CLOSE c_produk; END IF;
 RAISE;
END;
/

DECLARE
 CURSOR c_produk(p_min NUMBER) IS
  SELECT id_produk, nama_produk, stok FROM produk_demo
  WHERE stok >= p_min ORDER BY id_produk;
BEGIN
 FOR r IN c_produk(20) LOOP
  DBMS_OUTPUT.PUT_LINE(r.nama_produk || ': ' || r.stok);
 END LOOP;
 FOR r IN (SELECT id_pelanggan, nama FROM pelanggan_demo ORDER BY id_pelanggan) LOOP
  DBMS_OUTPUT.PUT_LINE('Pelanggan ' || r.id_pelanggan || ': ' || r.nama);
 END LOOP;
END;
/

DECLARE
 v_nama pelanggan_demo.nama%TYPE;
BEGIN
 BEGIN
  SELECT nama INTO v_nama FROM pelanggan_demo WHERE id_pelanggan = 9999;
 EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('SELECT INTO: tidak ditemukan');
 END;
 FOR r IN (SELECT nama FROM pelanggan_demo WHERE id_pelanggan = 9999) LOOP
  DBMS_OUTPUT.PUT_LINE(r.nama);
 END LOOP;
 DBMS_OUTPUT.PUT_LINE('Loop kosong selesai tanpa NO_DATA_FOUND');
END;
/

-- Jalankan di koneksi latihan yang tidak memiliki pekerjaan tertunda.
SAVEPOINT awal_transaksi_11;
UPDATE produk_demo SET stok = stok + 2 WHERE id_produk = 12;
SAVEPOINT sesudah_teh_11;
UPDATE produk_demo SET stok = stok + 3 WHERE id_produk = 13;
ROLLBACK TO sesudah_teh_11;
SELECT id_produk, stok FROM produk_demo WHERE id_produk IN (12,13) ORDER BY id_produk;
ROLLBACK;
SELECT id_produk, stok FROM produk_demo WHERE id_produk IN (12,13) ORDER BY id_produk;
-- Latihan COMMIT netral: tidak mengubah nilai seed.
UPDATE produk_demo SET stok = stok WHERE id_produk = 12;
COMMIT;

Tugas / latihan

1. Pada XE lokal ATAU FreeSQL schema sendiri, buat cursor berparameter batas harga dan tampilkan produk yang memenuhi syarat.
2. Bandingkan loop manual dan FOR dengan filter yang sama; sertakan hasil aktual dan jumlah baris.
3. Buat dua UPDATE dengan SAVEPOINT di antaranya, buktikan rollback parsial dan penuh tanpa mengubah seed permanen.
4. Kumpulkan SQL dan catatan perbedaan SELECT INTO kosong dengan cursor kosong; jangan menjalankan DDL di tengah uji rollback.

Pertanyaan analisis

1. Mengapa pengecekan NOTFOUND harus dilakukan setelah FETCH dan sebelum mencetak record?
2. Bagaimana Anda membuktikan bahwa penutupan cursor tidak menyimpan atau membatalkan DML?

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 — Cursors Overview
• Oracle 19c — COMMIT

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