create or alter procedure KLADR_KLADR_ADD_DATA (
    USERNAME varchar( 20 ),
    USERPWRD varchar( 20 ),
    DATA BLOB_DATA)
returns (
    RESULT integer)
as
declare variable LINE BLOB_DATA;
declare variable NAME varchar( 40 );
declare variable SOCR varchar( 10 );
declare variable CODE varchar( 13 );
declare variable INDEX_ varchar( 6 );
declare variable GNINMB varchar( 4 );
declare variable UNO varchar( 4 );
declare variable OCATD varchar( 11 );
declare variable STATUS varchar( 1 );
declare variable STR varchar( 40 );
declare variable COUNTER integer;
begin
  select result from can_access(:username,:userpwrd,'admin', 1 ) into :result;
  if (result< 0 ) then
  begin
    suspend;
    exit;
  end

  result =  0 ;

  for select OUTPUTSTRING from splitstring(:data, ascii_char( 13 ))
    into :line
  do
    begin
        counter =  0 ;
        name = '';
        socr = '';
        code = '';
        index_ = '';
        gninmb = '';
        uno = '';
        ocatd = '';
        status = '';

        for select OUTPUTSTRING from splitstring(:line, ascii_char( 10 ))
          into :str
        do
          begin
            if (counter =  0 ) then name = :str;
            if (counter =  1 ) then socr = :str;
            if (counter =  2 ) then code = :str;
            if (counter =  3 ) then index_ = :str;
            if (counter =  4 ) then gninmb = :str;
            if (counter =  5 ) then uno = :str;
            if (counter =  6 ) then ocatd = :str;
            if (counter =  7 ) then status = :str;
            counter = counter +  1 ;
          end

        insert into kladr_kladr(name, socr, code, "INDEX", gninmb, uno, ocatd, status)
          values (:name, :socr, :code, :index_, :gninmb, :uno, :ocatd, :status);
        suspend; --для теста, чтобы добавить только одну запись в таблицу
        exit; --для теста, чтобы добавить только одну запись в таблицу
    end

  suspend;
end^

create or alter procedure SPLITSTRING (
    INPUTSTRING BLOB_DATA,
    DIVIDERSTRING NAME)
returns (
    OUTPUTSTRING BLOB_DATA)
as
declare variable POS1 "INTEGER";
declare variable POS2 "INTEGER";
begin
  pos1 =  1 ;
  pos2 = position(dividerstring, inputstring);

  if (pos2 >  0 ) then begin
    while (pos2 >  0 ) do begin
      outputstring = substring(inputstring from pos1 for (pos2 - pos1));
      pos1 = pos2 +  1 ;
      pos2 = position(dividerstring, inputstring, pos1);
      suspend;
    end
  end
  if (pos2 =  0 ) then begin
    outputstring = substring(inputstring from pos1);
    suspend;
  end
end^