create or replace procedure UP_SendFTPFile(mess out varchar2) is
  l_conn      UTL_TCP.connection;
  txt_ftp_log VARCHAR2(1000);
  exc_ftp_err EXCEPTION;
  cLog      Clob; --лог ftp
  kolToSend Numeric; --количество файлов для отправки
  -- для Сбора лога FTP:
  v_Message DBMS_OUTPUT.CHARARR;
  v_Status  numeric := 32767;
begin
  -- выберем данные для отправки
  Select count(rn)
    into kolToSend
    from UT_FILEFTPSEND_PREP
   where STATUSSEND <> 'Отправлен';

  if kolToSend > 0 then
    begin
      cLog := 'Начало подключения' || chr(13);
    
      l_conn := ftp.login('******.ru',
                          '21',
                          '***********',
                          '***********',
                          60); --  60 сек тайм-аут подключения
      For curs in (Select *
                     from UT_FILEFTPSEND_PREP
                    where STATUSSEND <> 'Отправлен'
                      and rn in (164, 165, 166)) loop
        --для теста только три файла
        -- если записей нет, то цикл прекратится
        begin
          v_Status:=32767;
          dbms_output.get_lines(lines => v_Message, numlines => v_Status);
        
          ftp.ascii(p_conn => l_conn);
          ftp.put_remote_ascii_data(p_conn => l_conn,
                                    p_data => curs.filedata,
                                    p_file => 'Outbox\' || curs.filename);
          ftp.get_reply(l_conn); --ожидаем ответ от сервера 
        
          FOR linenum in 1 .. v_Status LOOP
            cLog := cLog || v_Message(linenum) || chr(13);
          end loop;
        
          update UT_FILEFTPSEND_PREP
             set STATUSSEND   = 'Отправлен',
                 CFTP_LOG     = cLog,
                 senddatatime = sysdate
           where RN = curs.rn;
          commit WORK; --обновляем таблицу снимая блокировку с записи
        
        exception
          WHEN OTHERS THEN
            BEGIN
              cLog := null;
              v_Status:=32767;
              dbms_output.get_lines(lines    => v_Message,
                                    numlines => v_Status);
              FOR linenum in 1 .. v_Status LOOP
                cLog := cLog || v_Message(linenum);
              end loop;
            
              update UT_FILEFTPSEND_PREP
                 set STATUSSEND   = 'Ошибка',
                     CFTP_LOG     = cLog,
                     senddatatime = sysdate
               where RN = curs.rn;
              commit WORK; --обновляем таблицу снимая блокировку с записи
            end;
        end;
      end loop;
    
      ftp.logout(l_conn);
      cLog := null;
      v_Status:=32767;
      dbms_output.get_lines(lines => v_Message, numlines => v_Status);
      FOR linenum in 1 .. v_Status LOOP
        cLog := cLog || v_Message(linenum) || chr(13);
      end loop;
      mess := 'Отправлено';
    
    exception
      WHEN OTHERS THEN
        BEGIN
          ftp.logout(l_conn);
          txt_ftp_log := 'Не удалось подключится к FTP';
          v_Status:=32767;
          dbms_output.get_lines(lines => v_Message, numlines => v_Status);
          FOR linenum in 1 .. v_Status LOOP
            cLog := cLog || v_Message(linenum);
          end loop;
          mess := 'Ошибка какая-то';
        END;
      
    end;
  else
    mess := 'Нет данных для отправки: ' || kolToSend;
  end if; -- если kolToSend 0   

end;

update UT_FILEFTPSEND_PREP
              set STATUSSEND   = 'Ошибка',
                   CFTP_LOG     = cLog,
                    senddatatime = sysdate
              where RN = curs.rn;