Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment