Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement