-- Perulangan FOR dengan Subquery
SET serveroutput ON
SET verify off
DECLARE
  kgaris CONSTANT VARCHAR2(60):=LPAD('-',60,'-');
  vnomor NUMBER(3);
BEGIN
  --inputkan nomor department
  vnomor :=&input_nomor_department;
  --judul laporan
  dbms_output.put_line('Daftar Karyawan Dept : '||vnomor);
  dbms_output.put_line(kgaris);
  dbms_output.put_line(RPAD('No',5,' ') ||
                       RPAD('Nama',15,' ') ||
                       RPAD('Jabatan',10,' '));
  dbms_output.put_line(kgaris);

  --menampilkan data karyawan pada department_id tertentu
  FOR x IN
  (SELECT Employee_id, Last_name, Job_id
   FROM Employees
   WHERE Department_id = vnomor) LOOP
   --tampilkan recordnya
   dbms_output.put_line(RPAD(x.employee_id,5,' ') ||
                        RPAD(x.last_name,15,' ') ||
                        RPAD(x.job_id,10,' '));
   END LOOP;
   dbms_output.put_line(kgaris);
END;