-- Lade Programm erstellen
CREATE OR REPLACE procedure loadImg (p_id number, p_name varchar2)
as
  img_s1 ORDSYS.ORDImage;
  img_s2 ORDSYS.ORDImage;
  x INTEGER;
  ctx RAW(4000) := NULL;
 BEGIN
    SELECT S.image_s1
       INTO img_s1
       FROM myImg S
      WHERE S.image_id=p_id
        FOR UPDATE;
     -- Laden der Bilder von der Festplatte
    img_s1.setSource('file','ORDIMGDIR',p_name);
    img_s1.import(ctx);

    UPDATE myImg SET image_s1=img_s1 WHERE image_id=p_id;
    commit;
    --Verarbeite des 1. Bildes und speichern als Thumbnail in s2
    SELECT S.image_s1 , S.image_s2
      INTO img_s1 , img_s2
     FROM myImg S
    WHERE S.image_id=p_id
      FOR UPDATE;

    img_s1.PROCESSCOPY
     ('FileFormat=JFIF CompressionQuality=MAXINTEGRITY MaxScale=225 225',img_s2);
   
    UPDATE myImg S SET S.image_s2=img_s2 WHERE S.image_id=p_id;
    commit;
 
 END;
/        
-- BILD Laden
exec loadImg(1,&bildname);