set serveroutput on
declare
  -- variable
  vnik number(3);
  vnama varchar2(10);
  vpinjaman number(20);
  vbunga number(20);
  vlpinjaman number(20);
  vtotal number(20);
  vangsuran number(20);
  -- konstanta
  kgaris constant varchar2(90) :=LPAD ('-',90,'-');
  klpinjaman Constant real :=60;
  kbunga CONSTANT real:=0.2;
begin
  -- Field
  dbms_output.put_line('Daftar Pinjaman Karyawan');
  dbms_output.put_line(kgaris);
  dbms_output.put_line(RPAD('NIK',5,' ' )|| RPAD ('NAMA',15,' ') || RPAD('PINJAMAN',15,' ') || RPAD('L.PINJAMAN',15,' ')
  || RPAD('BUNGA',15,' ') || RPAD('TOTAL',15,' ') || RPAD('ANGSURAN',15,' ')) ;
  dbms_output.put_line(kgaris);

  -- record
  vnik := 100;
  LOOP
    Select Employee_id, Last_name, Salary
    Into vnik, vnama, vpinjaman
    From Employees
    Where employee_id = vnik;

    vbunga:= (kbunga * vpinjaman);
    vtotal:= (vpinjaman + vbunga);
    vangsuran:= (vtotal / klpinjaman);

    dbms_output.put_line(RPAD(vnik,5,' ') || RPAD (vnama,15,' ') || RPAD(vpinjaman,15,' ')
    || RPAD(klpinjaman,15,' ') || RPAD(vbunga,15,' ') || RPAD(vtotal,15,' ') || RPAD(vangsuran,15,' ')) ;
    vnik := vnik + 1; --nomor induk selanjutnya
    Exit when vnik > 120; -- proses akhir perulangan
  END LOOP;

  -- Data Mahasiswa
  dbms_output.put_line(kgaris);
  dbms_output.put_line ('NIM      : 8040170092 ');
  dbms_output.put_line ('NAMA     : YOSHO');
  dbms_output.put_line ('KELAS    : 04PS5 ');
  dbms_output.put_line(kgaris);
END;