Advertisement
Guest User

Untitled

a guest
Dec 8th, 2019
310
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SET serveroutput ON
  2. DECLARE
  3.   vjabatan VARCHAR2(30);
  4.   kgaris CONSTANT VARCHAR2(90) :=LPAD ('-',90,'-');
  5.  
  6.   BEGIN
  7.  
  8.   -- Judul
  9.   dbms_output.put_line('DATA JABATAN');
  10.   dbms_output.put_line(kgaris);
  11.   dbms_output.put_line(RPAD('NO',5,' ' )|| RPAD ('NAMA',15,' ') || RPAD('KODE',15,' ') || RPAD('JABATAN',30,' ')) ;
  12.   dbms_output.put_line(kgaris);
  13.  
  14.   FOR x IN
  15.   (SELECT Employee_id, Last_name, Job_id
  16.    FROM Employees
  17.    WHERE Employee_id BETWEEN 200 AND 206) LOOP
  18.  
  19. -- Menentukan nama jabatan
  20. IF x.Job_id = 'AD_ASST' THEN
  21. vjabatan:='STAFF ADMINISTRASI';
  22. ELSE IF x.Job_id = 'MK_MAN' THEN
  23. vjabatan:='MANAJER MARKETING';
  24. ELSE IF x.Job_id = 'MK_REP' THEN
  25. vjabatan:='STAFF HRD';
  26. ELSE IF x.Job_id = 'PR_REP' THEN
  27. vjabatan:='STAFF PRODUKSI';
  28. ELSE IF x.Job_id = 'AC_MGR' THEN
  29. vjabatan:='MANAJER KEUANGAN';
  30. ELSE vjabatan:='AKUNTING';
  31. END IF; END IF; END IF; END IF; END IF;
  32.    
  33. -- Cetak record
  34.     dbms_output.put_line(RPAD(x.employee_id,5,' ')
  35.     || RPAD (x.last_name,15,' ')
  36.     || RPAD (x.job_id,15,' ')
  37.     || RPAD (vjabatan,50,' '));
  38.   END LOOP;
  39.   dbms_output.put_line(kgaris);
  40. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement