document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. -- Perulangan FOR dengan Subquery
  2. SET serveroutput ON
  3. SET verify off
  4. DECLARE
  5.   kgaris CONSTANT VARCHAR2(60):=LPAD(\'-\',60,\'-\');
  6.   vnomor NUMBER(3);
  7. BEGIN
  8.   --inputkan nomor department
  9.   vnomor :=&input_nomor_department;
  10.   --judul laporan
  11.   dbms_output.put_line(\'Daftar Karyawan Dept : \'||vnomor);
  12.   dbms_output.put_line(kgaris);
  13.   dbms_output.put_line(RPAD(\'No\',5,\' \') ||
  14.                        RPAD(\'Nama\',15,\' \') ||
  15.                        RPAD(\'Jabatan\',10,\' \'));
  16.   dbms_output.put_line(kgaris);
  17.  
  18.   --menampilkan data karyawan pada department_id tertentu
  19.   FOR x IN
  20.   (SELECT Employee_id, Last_name, Job_id
  21.    FROM Employees
  22.    WHERE Department_id = vnomor) LOOP
  23.    --tampilkan recordnya
  24.    dbms_output.put_line(RPAD(x.employee_id,5,\' \') ||
  25.                         RPAD(x.last_name,15,\' \') ||
  26.                         RPAD(x.job_id,10,\' \'));
  27.    END LOOP;
  28.    dbms_output.put_line(kgaris);
  29. END;
');