Package Pada PL/SQL

Membuat Package Spesification

Di bawah ini adalah contoh program untuk membuat Package Specification di PL/SQL:

CREATE OR REPLACE PACKAGE mahasiswa_pkg
AS
   PROCEDURE cari_mahasiswa (v_npm mahasiswa.npm%TYPE);
END mahasiswa_pkg;
/

Membuat Package Body

Di bawah ini adalah contoh program untuk membuat Package Body di PL/SQL:

CREATE OR REPLACE PACKAGE BODY NANO.mahasiswa_pkg
AS
   PROCEDURE cari_mahasiswa (v_npm mahasiswa.npm%TYPE)
   IS
      v_nama      mahasiswa.nama%TYPE;
      v_jurusan   mahasiswa.jurusan%TYPE;
   BEGIN
      SELECT nama, jurusan
        INTO v_nama, v_jurusan
        FROM mahasiswa
       WHERE npm = v_npm;

      DBMS_OUTPUT.put_line ('NPM: ' || v_npm);
      DBMS_OUTPUT.put_line ('Nama: ' || v_nama);
      DBMS_OUTPUT.put_line ('Jurusan: ' || v_jurusan);
   END cari_mahasiswa;
END mahasiswa_pkg;
/

Memanggil Package Dari Program PL/SQL

Contoh Program

Di bawah ini adalah contoh pemanggilan package dari blok PL/SQL:

DECLARE
  v_npm mahasiswa.npm%TYPE := '2015001';
BEGIN
  mahasiswa_pkg.cari_mahasiswa(v_npm);
END;

Output

Program diatas akan menghasilkan output seperti di bawah ini:

NPM: 2015001
Nama: Nursalim Alfarizi
Jurusan: Teknik Informatika

PL/SQL procedure successfully completed.

Melihat Daftar Package

Untuk melihat daftar package yang telah kita buat, kita dapat menggunakan query di bawah ini:

SQL> select object_name, object_type, status from user_objects
  2  where object_type IN ('PACKAGE', 'PACKAGE BODY');

OBJECT_NAME                         OBJECT_TYPE         STATUS
----------------------------------- ------------------- -------
MAHASISWA_PKG                       PACKAGE             VALID
MAHASISWA_PKG                       PACKAGE BODY        VALID

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.