Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SET serveroutput ON
- DECLARE
- vjabatan VARCHAR2(30);
- kgaris CONSTANT VARCHAR2(90) :=LPAD ('-',90,'-');
- BEGIN
- -- Judul
- dbms_output.put_line('DATA JABATAN');
- dbms_output.put_line(kgaris);
- dbms_output.put_line(RPAD('NO',5,' ' )|| RPAD ('NAMA',15,' ') || RPAD('KODE',15,' ') || RPAD('JABATAN',30,' ')) ;
- dbms_output.put_line(kgaris);
- FOR x IN
- (SELECT Employee_id, Last_name, Job_id
- FROM Employees
- WHERE Employee_id BETWEEN 200 AND 206) LOOP
- -- Menentukan nama jabatan
- IF x.Job_id = 'AD_ASST' THEN
- vjabatan:='STAFF ADMINISTRASI';
- ELSE IF x.Job_id = 'MK_MAN' THEN
- vjabatan:='MANAJER MARKETING';
- ELSE IF x.Job_id = 'MK_REP' THEN
- vjabatan:='STAFF HRD';
- ELSE IF x.Job_id = 'PR_REP' THEN
- vjabatan:='STAFF PRODUKSI';
- ELSE IF x.Job_id = 'AC_MGR' THEN
- vjabatan:='MANAJER KEUANGAN';
- ELSE vjabatan:='AKUNTING';
- END IF; END IF; END IF; END IF; END IF;
- -- Cetak record
- dbms_output.put_line(RPAD(x.employee_id,5,' ')
- || RPAD (x.last_name,15,' ')
- || RPAD (x.job_id,15,' ')
- || RPAD (vjabatan,50,' '));
- END LOOP;
- dbms_output.put_line(kgaris);
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement