Monday, December 5, 2011


set serveroutput on

 declare
 nilai integer;
 begin
 nilai:=90;
 if nilai = 90 then
 dbms_output.put_line('lulus');
 end if;
 end;

declare
nilai integer; 
begin
nilai:=90;
if nilai >= 90 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;

declare
nilai integer:=&nilai;
begin
if nilai >=90 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;

declare
nilai integer:=&nilai;
BEGIN
if nilai >=90 then
dbms_output.put_line('lulus terbaik');
elsif nilai > 70 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;

declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
dbms_output.put_line('lulus terbaik');
elsif na <90 and na >=75 then
dbms_output.put_line('lulus');
elsif na <75 and na >=60 then
dbms_output.put_line('boleh perbaikan');
else
dbms_output.put_line('silahkan mengulang');
end if;
end;

declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
dbms_output.put_line('nilai : '||na||' lulus terbaik');
elsif na <90 and na >=75 then
dbms_output.put_line('nilai : '||na||' lulus');
elsif na <75 and na >=60 then
dbms_output.put_line('nilai : '||na||' boleh perbaikan');
else
dbms_output.put_line('nilai : '||na||' silahkan mengulang');
end if;
end;

declare
na varchar(1):='&na';
ket varchar(20);
begin
ket := case na
       when 'A' then 'Baik Sekali'
       when 'B' then 'Baik'
       when 'C' then 'Cukup'
       when 'D' then 'Kurang'
       when 'E' then 'Kurang Sekali'
end;
dbms_output.put_line('INDEKS   : '||na);
dbms_output.put_line('Keterangan:'||ket);
end;

declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
na1 varchar(1);
ket varchar(20);
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
           na1 :='A';
elsif na <90 and na >=75 then
   na1 :='B';
elsif na <75 and na >=60 then
   na1 :='C';
elsif na <60 and na >=40 then
   na1 :='D';
else
   na1 :='E';
end if;
ket := case na1
       when 'A' then 'Baik Sekali'
       when 'B' then 'Baik'
       when 'C' then 'Cukup'
       when 'D' then 'Kurang'
       when 'E' then 'Kurang Sekali'
end;
dbms_output.put_line('Nilai    : '||na);
dbms_output.put_line('INDEKS   : '||na1);
dbms_output.put_line('Keterangan:'||ket);
end;
DECLARE
KODE_ID           EMPLOYEES.EMPLOYEE_ID%type;
NAMA_DEP    EMPLOYEES.FIRST_NAME%type;
NAMA_BEL    EMPLOYEES.LAST_NAME%type;
EMA_IL            EMPLOYEES.EMAIL%type;
TGL_KERJA   EMPLOYEES.HIRE_DATE%type;
JOBID             EMPLOYEES.JOB_ID%type:= 'PU_MAN';
GAJI        EMPLOYEES.SALARY%type;
konter            integer:=1;
begin
      select max (EMPLOYEE_ID) into KODE_ID
      from EMPLOYEES where JOB_ID=JOBID;
      loop
insert into EMPLOYEES(
EMPLOYEE_ID, FIRST_NAME, LAST_NAME, EMAIL,
HIRE_DATE,JOB_ID, SALARY) values
((KODE_ID+konter), '&NAMA_DEP', '&NAMA_BEL', '&EMA_IL',
'&TGL_KERJA','&JOBID',&GAJI);
exit when konter > 1;
konter := konter+1;
end loop;
end;
/