SET serveroutput ON
SET verify off

DECLARE
  -- deklarasi variable
  vnomor NUMBER(3);  -- nomor karyawan
  vnama VARCHAR2(20); -- nama karyawan
  vtgl DATE;
  vjob VARCHAR(50);
  vnamajob VARCHAR(50);
  vjobtitle VARCHAR2(50);

  -- deklarasi konstanta
  kgaris CONSTANT VARCHAR2(50):=LPAD('-',40,'-');

BEGIN
  vnomor:= SUBSTR('&input_nomor_karyawan',1, 3);


  SELECT E.Last_name, E.hire_date, E.job_id, J.job_title INTO vnama, vtgl, vjob, vjobtitle
  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)|| ', s.kom');
  dbms_output.put_line('Tgl. Bekerja : '||TO_CHAR(vtgl,'yyyy/mm/dd'));
  dbms_output.put_line('Kode Jabatan : '||vjob);
  dbms_output.put_line('Nama Jabatan : '||vjobtitle);
  dbms_output.put_line(kgaris);

  EXCEPTION
  WHEN NO_DATA_FOUND THEN dbms_output.put_line
  ('Karyawan No. '||vnomor||' tidak ada...');

  END;