Guest User

Untitled

a guest
Dec 6th, 2019
259
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Menampilkan data karyawan mulai dari karyawan No. 100 hingga 120
  2. ---------------------script PL/SQL------------------------------
  3. SET serveroutput ON
  4. DECLARE
  5. vnomor NUMBER(3);
  6. vnama VARCHAR2(10);
  7. vgaji NUMBER(6);
  8. kgaris CONSTANT VARCHAR2(60):=LPAD('-',60,'-');
  9. BEGIN
  10. --tampilkan judul laporan
  11. dbms_output.put_line('Data Karyawan');
  12. dbms_output.put_line(kgaris);
  13. dbms_output.put_line(RPAD('No.',5,' ')||RPAD('Nama',15,' ')||RPAD('Gaji',6,' '));
  14. dbms_output.put_line(kgaris);
  15.  
  16. FOR vnomor IN 100..120 LOOP
  17.     SELECT last_name, salary INTO vnama, vgaji
  18.     FROM Employees
  19.     WHERE employee_id=vnomor;
  20. --tampilkan record
  21. dbms_output.put_line(RPAD(vnomor,5,' ')||RPAD(vnama,15,' ')||RPAD(vgaji,6,' '));
  22. END LOOP;
  23. dbms_output.put_line(kgaris);
  24. END;
Advertisement
Add Comment
Please, Sign In to add comment