Menampilkan data karyawan mulai dari karyawan No. 100 hingga 120
---------------------script PL/SQL------------------------------
SET serveroutput ON
DECLARE
vnomor NUMBER(3);
vnama VARCHAR2(10);
vgaji NUMBER(6);
kgaris CONSTANT VARCHAR2(60):=LPAD(\'-\',60,\'-\');
BEGIN
--tampilkan judul laporan
dbms_output.put_line(\'Data Karyawan\');
dbms_output.put_line(kgaris);
dbms_output.put_line(RPAD(\'No.\',5,\' \')||RPAD(\'Nama\',15,\' \')||RPAD(\'Gaji\',6,\' \'));
dbms_output.put_line(kgaris);
FOR vnomor IN 100..120 LOOP
SELECT last_name, salary INTO vnama, vgaji
FROM Employees
WHERE employee_id=vnomor;
--tampilkan record
dbms_output.put_line(RPAD(vnomor,5,\' \')||RPAD(vnama,15,\' \')||RPAD(vgaji,6,\' \'));
END LOOP;
dbms_output.put_line(kgaris);
END;