SET TERM ^ ;

create or alter procedure AIS_PARSE_FIO (
    FIO varchar(50))
returns (
    FAM varchar(50),
    NAME varchar(50),
    PATRO varchar(50))
as
declare variable P1 integer;
declare variable L integer;
declare variable P2 integer;
declare variable IO varchar(50);
begin
     l=char_length (:fio);
     if ((:l=0) or (:fio is null)) then begin
                                          fam='';
                                          name='';
                                          patro='';
                                          suspend;
                                        end
    else begin
           p1=position (' ', :fio);
           if (:p1=0) then begin
                              fam=:fio;
                              name='';
                              patro='';
                              suspend;
                           end
                       else begin
                             fam=trim(substring(:fio from 1 for :p1));

                             io=trim(substring(:fio from :p1 for :l));

                             p2=position (' ', :io);

                             if (:p2=0) then begin
                                               name=:io;
                                               patro='';
                                             end
                                        else begin

                                         name=trim(substring(:io from 1 for :p2));
                                              l=char_length (:io);
                                 patro=trim(substring(:io from :p2 for :l));
                                 end
                              suspend;
                            end

     end
--   end
end^

SET TERM ; ^

COMMENT ON PROCEDURE AIS_PARSE_FIO IS
'Распарсить ФИО на составляющие';