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/handwritten/Img/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 < 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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '0', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img001-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '1', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img002-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '2', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img003-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '3', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img004-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '4', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img005-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '5', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img006-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '6', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img007-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '7', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img008-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '8', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img009-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, '9', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img010-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'A', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img011-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'B', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img012-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'C', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img013-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'D', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img014-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'E', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img015-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'F', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img016-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'G', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img017-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'H', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img018-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'I', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img019-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'J', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img020-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'K', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img021-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'L', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img022-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'M', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img023-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'N', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img024-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'O', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img025-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'P', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img026-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Q', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img027-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'R', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img028-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'S', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img029-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'T', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img030-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'U', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img031-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'V', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img032-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'W', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img033-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'X', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img034-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Y', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img035-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'Z', 1, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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 < 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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'a', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img037-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'b', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img038-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'c', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img039-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'd', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img040-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'e', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img041-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'f', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img042-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'g', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img043-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'h', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img044-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'i', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img045-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'j', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img046-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'k', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img047-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'l', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img048-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'm', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img049-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'n', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img050-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'o', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img051-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'p', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img052-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'q', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img053-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'r', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img054-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 's', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img055-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 't', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img056-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'u', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img057-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'v', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img058-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'w', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img059-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'x', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img060-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'y', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img061-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'z', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################


    CREATE OR REPLACE DIRECTORY IMGDIR36 AS '/home/vschube1/pictures/handwritten/Img/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..55 LOOP
         fileName:= 'img062-';

        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 HANDWRITTEN (ID, LETTER, ISUPPERCASE, IMAGE, IMAGE_SIG)
           VALUES ( K, 'z', 0, ORDSYS.ORDImage.init(),ORDSYS.ORDImageSignature.init());
        SELECT image INTO imageObj FROM HANDWRITTEN 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 HANDWRITTEN SET image = imageObj WHERE id = K;
       END LOOP;
       COMMIT;
    END;
    /
    --###########################