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