Simple PL/SQL

ini beberapa contoh simpel PL/SQL, walau sederhana moga dapat berguna bwat bloger. :)

PERHITUNGAN MATEMATIKA
set serveroutput on
declare
     rencana number:=10;
     realisasi number:=5;
     selisih number;
     persentase number;
     expn number;
     x number;
begin
     selisih:=rencana-realisasi;
     persentase:=(selisih/rencana)*100;
     expn:=4**2;
     dbms_output.put_line('Ekspinen dari 4 pangkat 2 adalah ' || expn);
     dbms_output.put_line('Nilai dari selisih adalah ' || selisih);
     dbms_output.put_line('Persentase pencapaian adalah ' || persentase || '%');
     dbms_output.put_line('contoh minus ' || -22);
     x:=-5;
     dbms_output.put_line(-x);
     dbms_output.put_line(x);
     dbms_output.put_line(+x);
end;
/


INSERT
DECLARE
     IDM VARCHAR2(4):= '9';
     F VARCHAR2(10):= 'JULIUS';
     L VARCHAR2(10):= 'SAHAT';
     S DATE:= to_date('20100412','YYYYMMDD');
     EN DATE:= to_date('20100909','YYYYMMDD');
     SAL NUMBER:= 400.00;
     CI VARCHAR2(10):= 'BANDUNG';
     DES VARCHAR2(15):= 'BA';
BEGIN
     INSERT INTO A (ID, FIRST_NAME, LAST_NAME, START_DATE, END_DATE, SALARY, CITY, DESCRIPTION)
     VALUES (IDM, F, L, S, EN, SAL, CI, DES);
     IF (SQL%NOTFOUND)
     THEN
         DBMS_OUTPUT.PUT_LINE ('INSERT ERRRO?!');
     END IF;
END;
/


LOAD DATA DAN MENAMPILKAN DATA
set serveroutput on
declare
     nama varchar2(10);
begin
     select first_name into nama from a where id=1;
     dbms_output.put_line('Nama:' || nama);
end;
/


LOAD DATA DAN INSERT KE TABEL BERBEDA
set serveroutput on
declare
     nama varchar2(10);
     id varchar2(4);
begin
     select first_name into nama from a where id=1;
     insert into aa (nam) values (nama);
     dbms_output.put_line('Data berhasil tersimpan');
     if (sql%notfound)
     then
         dbms_output.put_line('error');
     end if;
end;
/