User Tools

Site Tools


kurs:last_testen
 CREATE TABLE "HR"."TEILNEHMER" 
   (	"ID" NUMBER(*,0), 
	"NAME" VARCHAR2(15 BYTE), 
	"WOHNORT" VARCHAR2(20 BYTE), 
	"ANLAGE_DATUM" DATE
   )
create or replace PROCEDURE INSERT_TEILNEHMER
( anzahl IN NUMBER
) AS
  random_wo varchar2(10);
BEGIN
for i in 1..anzahl loop
  random_wo := upper(dbms_random.string('A', 2));
  insert into teilnehmer (
    id,
    name,
    wohnort,
    anlage_datum
  ) values (
    sq.nextval,
    'Bumsti'||sq.currval,
    'Meindorf ' ||random_wo,
    sysdate
  );
end loop;    
END INSERT_TEILNEHMER;
create or replace PROCEDURE LAST_TEILNEHMER AS
BEGIN
  loop
    insert_teilnehmer(2);
    commit;
    dbms_lock.sleep(1);
  end loop;
END LAST_TEILNEHMER;
CREATE OR REPLACE
PROCEDURE LESE_TEILNEHMER AS
  v_teilnehmer_id number;
  random_wo varchar2(10);
BEGIN
loop  
  select id into v_teilnehmer_id 
    from teilnehmer where name = 'Bumsti5000';  

  random_wo := upper(dbms_random.string('A', 2));  
  
  for r in
    (select id from teilnehmer where wohnort = 'Meindorf ' ||random_wo)
    loop
    null;
  end loop;
  dbms_lock.sleep(1);
end loop;  
END LESE_TEILNEHMER;
kurs/last_testen.txt · Last modified: 2014/09/10 21:22 (external edit)