Pasted

CREATE DEFINER=`wendelp`@`%` PROCEDURE `test`()
    LANGUAGE SQL
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
declare var_filename,var_titel, var_endung,var_dok varchar(100);
declare var_dokument longtext;
declare var_done int default false;
 
declare export_cur cursor for
select distinct 
    doc.Titel, doc.Dokument, doc.Dateiendung, vov.Key_DOK
    from VOV_MED vov
    join DOK_MED doc
        on doc.Key_DOK = vov.Key_DOK 
    where vov.Typ in (1,7,9,11,12,13,14,15,16,17,18,19)
        and vov.Key_DOK > 0;
 
declare continue handler for not found set var_done= true;
 
open export_cur;
read_loop:loop
    fetch export_cur into var_titel,var_dokument,var_endung,var_dok;
        if var_done then 
            leave read_loop;
        end if;
        
        set @sql = concat('select ''', var_dokument, ''' into outfile ''/opt/abdamed/', replace(var_titel,'/','_'),'_',var_dok,'.txt','''' );
        prepare psql from @sql;
 
        execute psql;
        
        
end loop;
close export_cur;
 
 
 
END