SET serveroutput ON DECLARE vjabatan varchar2(30); kgaris CONSTANT VARCHAR2(90) :=LPAD ('-',90,'-'); BEGIN -- Judul dbms_output.put_line('DATA JABATAN'); dbms_output.put_line(kgaris); dbms_output.put_line(RPAD('NO',5,' ' )|| RPAD ('NAMA',15,' ') || RPAD('KODE',15,' ') || RPAD('JABATAN',30,' ')) ; dbms_output.put_line(kgaris); For x In (SELECT Employee_id, Last_name, Job_id FROM Employees WHERE Employee_id Between 200 and 206) Loop -- Menentukan nama jabatan IF x.Job_id = 'AD_ASST' Then vjabatan:='STAFF ADMINISTRASI'; Else if x.Job_id = 'MK_MAN' Then vjabatan:='MANAJER MARKETING'; Else if x.Job_id = 'MK_REP' Then vjabatan:='STAFF HRD'; Else if x.Job_id = 'PR_REP' Then vjabatan:='STAFF PRODUKSI'; Else if x.Job_id = 'AC_MGR' Then vjabatan:='MANAJER KEUANGAN'; Else vjabatan:='AKUNTING'; End If; End If; End If; End If; End If; -- Cetak record dbms_output.put_line(RPAD(x.employee_id,5,' ') || RPAD (x.last_name,15,' ') || RPAD (x.job_id,15,' ') || RPAD (vjabatan,50,' ')); END LOOP; dbms_output.put_line(kgaris); END;