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);
- 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(TO_CHAR(vpinjaman,'99,999'),15,' ')
- || RPAD(klpinjaman,15,' ') || RPAD(TO_CHAR(vbunga,'99,999'),15,' ') || RPAD(TO_CHAR(vtotal,'99,999'),15,' ') || RPAD(TO_CHAR(vangsuran,'99,999'),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 : PRASETIYO');
- dbms_output.put_line ('KELAS : 04PS5');
- dbms_output.put_line(kgaris);
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement