DROP SEQUENCE image_seq;

CREATE SEQUENCE image_seq
  MINVALUE 1
  MAXVALUE 999999999
  START WITH 1
  INCREMENT BY 1
  CACHE 20;

SET SERVEROUTPUT ON;


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Img';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..1 LOOP
         fileName:= 'imgImg-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '0', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample001';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..105 LOOP
         fileName:= 'img001-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '1', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample002';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..79 LOOP
         fileName:= 'img002-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '2', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample003';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..70 LOOP
         fileName:= 'img003-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '3', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample004';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..50 LOOP
         fileName:= 'img004-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '4', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample005';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..47 LOOP
         fileName:= 'img005-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '5', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample006';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..64 LOOP
         fileName:= 'img006-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '6', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample007';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..64 LOOP
         fileName:= 'img007-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '7', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample008';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..48 LOOP
         fileName:= 'img008-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '8', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample009';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..32 LOOP
         fileName:= 'img009-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '9', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample010';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..34 LOOP
         fileName:= 'img010-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'A', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample011';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..558 LOOP
         fileName:= 'img011-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'B', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample012';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..115 LOOP
         fileName:= 'img012-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'C', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample013';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..215 LOOP
         fileName:= 'img013-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'D', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample014';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..191 LOOP
         fileName:= 'img014-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'E', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample015';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..446 LOOP
         fileName:= 'img015-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'F', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample016';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..79 LOOP
         fileName:= 'img016-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'G', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample017';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..143 LOOP
         fileName:= 'img017-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'H', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample018';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..193 LOOP
         fileName:= 'img018-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'I', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample019';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..302 LOOP
         fileName:= 'img019-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'J', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample020';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..77 LOOP
         fileName:= 'img020-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'K', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample021';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..92 LOOP
         fileName:= 'img021-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'L', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample022';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..215 LOOP
         fileName:= 'img022-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'M', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample023';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..149 LOOP
         fileName:= 'img023-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'N', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample024';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..363 LOOP
         fileName:= 'img024-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'O', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample025';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..382 LOOP
         fileName:= 'img025-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'P', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample026';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..159 LOOP
         fileName:= 'img026-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Q', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample027';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..35 LOOP
         fileName:= 'img027-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'R', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample028';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..389 LOOP
         fileName:= 'img028-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'S', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample029';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..342 LOOP
         fileName:= 'img029-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'T', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample030';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..312 LOOP
         fileName:= 'img030-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'U', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample031';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..92 LOOP
         fileName:= 'img031-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'V', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample032';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..84 LOOP
         fileName:= 'img032-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'W', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample033';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..67 LOOP
         fileName:= 'img033-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'X', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample034';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..80 LOOP
         fileName:= 'img034-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Y', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample035';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..67 LOOP
         fileName:= 'img035-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Z', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample036';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..55 LOOP
         fileName:= 'img036-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'a', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample037';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..158 LOOP
         fileName:= 'img037-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'b', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample038';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..38 LOOP
         fileName:= 'img038-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'c', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample039';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..63 LOOP
         fileName:= 'img039-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'd', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample040';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..46 LOOP
         fileName:= 'img040-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'e', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample041';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..227 LOOP
         fileName:= 'img041-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'f', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample042';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..37 LOOP
         fileName:= 'img042-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'g', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample043';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..36 LOOP
         fileName:= 'img043-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'h', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample044';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..52 LOOP
         fileName:= 'img044-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'i', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample045';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..127 LOOP
         fileName:= 'img045-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'j', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample046';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..33 LOOP
         fileName:= 'img046-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'k', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample047';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..34 LOOP
         fileName:= 'img047-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'l', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample048';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..58 LOOP
         fileName:= 'img048-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'm', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample049';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..43 LOOP
         fileName:= 'img049-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'n', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample050';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..135 LOOP
         fileName:= 'img050-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'o', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample051';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..148 LOOP
         fileName:= 'img051-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'p', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample052';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..37 LOOP
         fileName:= 'img052-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'q', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample053';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..54 LOOP
         fileName:= 'img053-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'r', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample054';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..126 LOOP
         fileName:= 'img054-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 's', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample055';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..124 LOOP
         fileName:= 'img055-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 't', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample056';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..111 LOOP
         fileName:= 'img056-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'u', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample057';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..41 LOOP
         fileName:= 'img057-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'v', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample058';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..33 LOOP
         fileName:= 'img058-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'w', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample059';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..36 LOOP
         fileName:= 'img059-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'x', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample060';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..35 LOOP
         fileName:= 'img060-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'y', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample061';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..43 LOOP
         fileName:= 'img061-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'z', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/photo/Sample062';


    DECLARE
       -- application variables
       imageObj ORDSYS.ORDImage;
       ctx RAW(4000) := NULL;
       fileName VARCHAR(30);
       dirName VARCHAR(20);
       -- files per dir
       K number(4);

    BEGIN
       FOR I IN 1..35 LOOP
         fileName:= 'img062-';
         IF I < 10000 THEN
         fileName := fileName || '0';
        END IF;
         IF I < 1000 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 100 THEN
         fileName := fileName || '0';
        END IF;
        IF I < 10 THEN
         fileName := fileName || '0';
        END IF;
        select image_seq.NEXTVAL into K from dual;
        INSERT INTO PHOTO (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'z', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM PHOTO WHERE id = K for UPDATE;
        dbms_output.put_line ('Trying to load from dir ' || 'IMGDIR36' || ' and file  ' || fileName);
        imageObj.setSource('file','IMGDIR36' ,fileName || I || '.png');
        imageObj.import(ctx);
        UPDATE PHOTO SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################