-- operator dan fungsi baku
set serveroutput on
set verify off
declare
  -- deklarasi variable
  vnomor number(3);  -- nomor karyawan
  vnama varchar2(20); -- nama karyawan
  vtgl_bekerja date;  -- tgl mulai bekerja
  vkode_jabatan varchar2(50);
  vnama_jabatan varchar2(50);
   
  --deklarasi konstanta
  kgaris CONSTANT varchar2(50):=LPAD('-',40,'-');
begin
  -- input nomor ke variable nomor
  vnomor:= SUBSTR('&input_nomor_karyawan',1, 3);
  
  -- cari data karyawan yang sesuai dengan vnomor
  Select E.last_name, E.hire_date,E.job_id, J.job_title
  Into vnama,vtgl_bekerja,vkode_jabatan,vnama_jabatan 
  FROM Employees E Join Jobs J
  on E.job_id=J.job_id
  WHERE employee_id = vnomor;
  
  
  --tampilkan record
  dbms_output.put_line('Data Karyawan');
  dbms_output.put_line(kgaris);
  dbms_output.put_line('No. Karyawan : '||vnomor);
  dbms_output.put_line('Nama Karyawan : '||UPPER(vnama));
  dbms_output.put_line('Tgl Mulai Kerja : '||TO_CHAR(vtgl_bekerja, 'yyyy/MM/dd'));
  dbms_output.put_line('Kode Jabatan : '||vkode_jabatan);
  dbms_output.put_line('Nama Jabatan : '||vnama_jabatan);
  dbms_output.put_line(kgaris);
  
Exception 
  when NO_DATA_FOUND Then dbms_output.put_line
  ('Karyawan No. '||vnomor||' tidak ada...');
    
End;