declare local temporary table t_result(
    "v1"    		integer NOT NULL ,
    "v2"    		varchar( 32 ) NULL ,
    "v3"    		integer NULL ,
    "v4"    		varchar( 20 ) NULL ,
    "v5"    		varchar( 200 ) NULL ,
    "v6"    		smallint NULL ,
    ) on commit delete rows;


  set s='select ... from ...';

  set b='';

  set s='insert into t_result ' || s;
  execute immediate s;
  set rec_count = @@rowcount;

  for ListFor as List dynamic scroll cursor for
      select ' ' || 
        "right"(repeat(' ', 16 ) || convert(char,isnull(v1, 0 )), 16 ) ||
        "left"(isnull(v2,'') || repeat(' ', 32 ), 32 ) ||
        "right"(repeat(' ', 16 ) || convert(char,isnull(v3, 0 )), 16 ) ||
        "left"(isnull(v4,'') || repeat(' ', 20 ), 20 ) ||
        "left"(isnull(v5,'') || repeat(' ', 200 ), 200 ) ||
        "right"(repeat(' ', 16 ) || convert(char,isnull(v6, 0 )), 16 ) as vv1
      from t_result
  do
      set b=b || vv1;
  end for;
      
  set s='';
  set s=s || '\x03';
  set s=s || '\x09\x05\x0C'; //YYMMDD создания DBF
  set s=s || "char"(mod(rec_count, 256 )) || "char"(mod(rec_count/ 256 , 256 )) || "char"(mod(rec_count/ 256 / 256 , 256 )) || "char"(rec_count/ 256 / 256 / 256 ); //Records count
  set s=s || '\xE1\x00'; //Header size = 32 + 32*cnt_field + 1
  set s=s || '\x2D\x01'; //Record length with separate space
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //header_complete

  set s=s || 'AA\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //field name
  set s=s || 'N\x00\x00\x00\x00'; //тип поля
  set s=s || '\x10\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || 'BBBBBBB\x00\x00\x00\x00'; //field name
  set s=s || 'C\x00\x00\x00\x00'; //тип поля
  set s=s || '\x20\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || 'CCC\x00\x00\x00\x00\x00\x00\x00\x00'; //field name
  set s=s || 'N\x00\x00\x00\x00'; //тип поля
  set s=s || '\x10\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || 'DDDD\x00\x00\x00\x00\x00\x00\x00'; //field name
  set s=s || 'C\x00\x00\x00\x00'; //тип поля
  set s=s || '\x14\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || 'EEEE\x00\x00\x00\x00\x00\x00\x00'; //field name
  set s=s || 'C\x00\x00\x00\x00'; //тип поля
  set s=s || '\xC8\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || 'FFFF\x00\x00\x00\x00\x00\x00\x00'; //field name
  set s=s || 'N\x00\x00\x00\x00'; //тип поля
  set s=s || '\x10\x00'; //размер поля и кол-во знаков после запятой
  set s=s || '\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00'; //

  set s=s || '\x0D';
  set s=s || csconvert(b,'cp866','cp1251');
  set s=s || '\x1A';

  call dbo.sa_set_http_header('Content-disposition','attachment; filename=bla-bla.dbf');
  call dbo.sa_set_http_header('Content-Type','application/octet-stream');
  return(s);