QUERY APPLIED DB I - UAS

/*tutorial pengunaan APEX-Debugging :
1. Buka Apex
2. Buat Code Specificationya di SQL WORKSHOP>SQL COMMANDS
3. Asal jadi aja CREATE PACKAGE ... IS ... END;--.. kosongin aja gpp
4. Balik ke SQL WORKSHOP
5. Pindah ke SQL WORKSHOP>OBJECT BROWSER>Ubah ke Package(kiri atas)>Pilih Nama Package
6. Kodinglah specificationya langsung disitu(bisa di compile langsung dan akan kelaitan error2nya)
7. Koding juga body nya langsung disitu.
8. Bebas Error, kembali ke SQL Workshop>SQL COMMANDS.
9. Jalanin Procedure kaya biasa
* Kenapa codingnya di OBJECT BROWSER bukan langsung di SQL COMMANDS? biar keliatan erronya di line berapa(ya serius bahkan ampe lineya dikasih tau)
*/

/*SOAL

Buatlah package yang bisa
insert dengan menerima kode pegawai dan nama pegawai, kemudian memasukanya ke tabel
update dengan membaca kode pegawai lalu mengubah nama, gaji,
delete dengan menerima kode pegawai yang hendak dipecat :'(

*/
--specificationya

CREATE OR REPLACE PACKAGE edit_emp
IS
  PROCEDURE insert_data(p_empno IN emp.empno%TYPE,p_ename IN emp.ename%TYPE);
  PROCEDURE update_data(p_empno IN emp.empno%TYPE, p_ename IN emp.ename%TYPE, p_sal IN emp.sal%TYPE);
  PROCEDURE delete_data(p_empno IN emp.empno%TYPE);
END;

-- Bodynya

CREATE OR REPLACE PACKAGE BODY edit_emp
IS
  PROCEDURE insert_data(p_empno IN emp.empno%TYPE,p_ename IN emp.ename%TYPE)
  IS
  BEGIN
    INSERT INTO EMP(empno,ename)
    VALUES (p_empno,p_ename);
  END;

  PROCEDURE update_data(p_empno IN emp.empno%TYPE, p_ename IN emp.ename%TYPE, p_sal IN emp.sal%TYPE)
  IS
  BEGIN
    UPDATE EMP
    SET ename=p_ename, sal=p_sal
    WHERE p_empno=empno;
  END;

  PROCEDURE delete_data(p_empno IN emp.empno%TYPE)
  IS
  BEGIN
    DELETE FROM EMP
    WHERE empno=p_empno;
  END;

END edit_emp;

-- mentest insert+update
BEGIN
  edit_emp.insert_data(1234,'Budi');
  edit_emp.update_data(1234,'Budi2',2000);
END;

-- untuk lihat perubahan
SELECT *
FROM EMP
WHERE empno=1234;

-- mentest delete
BEGIN
 edit_pkg.delete_data(1234);
END;

-- untuk lihat perubahan
SELECT *
FROM EMP
WHERE empno=1234;