document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. SET serveroutput ON
  2. DECLARE
  3.   -- variable
  4.   vnik NUMBER(3);
  5.   vnama VARCHAR2(10);
  6.   vpinjaman NUMBER(20);
  7.   vbunga NUMBER(20);
  8.   vtotal NUMBER(20);
  9.   vangsuran NUMBER(20);
  10.   -- konstanta
  11.   kgaris CONSTANT VARCHAR2(90) :=LPAD (\'-\',90,\'-\');
  12.   klpinjaman CONSTANT REAL :=60;
  13.   kbunga CONSTANT REAL:=0.2;
  14. BEGIN
  15.   -- Field
  16.   dbms_output.put_line(\'Daftar Pinjaman Karyawan\');
  17.   dbms_output.put_line(kgaris);
  18.   dbms_output.put_line(RPAD(\'NIK\',5,\' \' )|| RPAD (\'NAMA\',15,\' \') || RPAD(\'PINJAMAN\',15,\' \') || RPAD(\'L.PINJAMAN\',15,\' \')
  19.   || RPAD(\'BUNGA\',15,\' \') || RPAD(\'TOTAL\',15,\' \') || RPAD(\'ANGSURAN\',15,\' \')) ;
  20.   dbms_output.put_line(kgaris);
  21.  
  22.   -- record
  23.   vnik := 100;
  24.   LOOP
  25.     SELECT Employee_id, Last_name, Salary
  26.     INTO vnik, vnama, vpinjaman
  27.     FROM Employees
  28.     WHERE employee_id = vnik;
  29.    
  30.     vbunga:= (kbunga * vpinjaman);
  31.     vtotal:= (vpinjaman + vbunga);
  32.     vangsuran:= (vtotal / klpinjaman);
  33.    
  34.     dbms_output.put_line(RPAD(vnik,5,\' \') || RPAD (vnama,15,\' \') || RPAD(TO_CHAR(vpinjaman,\'99,999\'),15,\' \')
  35.     || RPAD(klpinjaman,15,\' \') || RPAD(TO_CHAR(vbunga,\'99,999\'),15,\' \') || RPAD(TO_CHAR(vtotal,\'99,999\'),15,\' \') || RPAD(TO_CHAR(vangsuran,\'99,999\'),15,\' \')) ;
  36.     vnik := vnik + 1; --nomor induk selanjutnya
  37.     EXIT WHEN vnik > 120; -- proses akhir perulangan
  38.   END LOOP;
  39.  
  40.   -- Data Mahasiswa
  41.   dbms_output.put_line(kgaris);
  42.   dbms_output.put_line (\'NIM      : 8040170092\');
  43.   dbms_output.put_line (\'NAMA     : PRASETIYO\');
  44.   dbms_output.put_line (\'KELAS    : 04PS5\');
  45.   dbms_output.put_line(kgaris);
  46. END;
');