document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  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;
');