Monday, December 5, 2011

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;
/

No comments:

Post a Comment