BEGIN
  FOR
    with

    e0 as
    (
       select
            equipmenthistory.equipmentid,
            max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime0
        from equipmenthistory
        where
           (
              (equipmenthistory.equipmentparslistid = 13) or
              (equipmenthistory.equipmentparslistid = 14)
           )
        group by equipmenthistory.equipmentid
    ),

    e1 as
    (
       select
            e0.equipmentid,
            e0.max_of_equipmentpardatetime0,
            max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime1
        from e0
            left outer join equipmenthistory on (equipmenthistory.equipmentid = e0.equipmentid)
        where
           (
              (equipmenthistory.equipmentparslistid = 13)
           )
        group by e0.equipmentid
    )

    select
        e1.equipmentid,
        equipmentlist.shifr,
        equipmentlist.naim,
        equipmentlist.oboz,
        equipmenthistory.equipmentparvalue,
        e1.max_of_equipmentpardatetime0
    from e1
       left outer join equipmenthistory on (e1.equipmentid = equipmenthistory.equipmentid and e1.max_of_equipmentpardatetime=equipmenthistory.equipmentpardatetime)
       left outer join equipmentlist on (equipmenthistory.equipmentlistid = equipmentlist.id)
    where
    (
          (equipmentlist.shifr like '%' || :IN_SHIFR || '%' ) and
          (equipmentlist.naim like '%' || :IN_NAIM || '%' ) and
          (equipmentlist.oboz like '%' || :IN_OBOZ || '%' ) and
          (extract(year from equipmenthistory.equipmentpardatetime) like '%' || :IN_BIRTHYEAR || '%' )
    )
    order by e.max_of_equipmentpardatetime0 DESC
    INTO :EQUIPMENTID,
         :SHIFR,
         :NAIM,
         :OBOZ,
         :EQUIPMENTPARVALUE,
         :BIRTHYEAR
  DO
  BEGIN
    SUSPEND;
  END
END

BEGIN
  FOR
    select
                equipmenthistory.equipmentid,
                max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime
            from equipmenthistory
            where
               (
                  (equipmenthistory.equipmentparslistid = 13) or
                  (equipmenthistory.equipmentparslistid = 14)
               )
            group by equipmenthistory.equipmentid
            order by equipmenthistory.equipmentid
    INTO :EQUIPMENTID,
         :MAX_OF_EQUIPMENTPARDATETIME
  DO
  BEGIN
    SUSPEND;
  END
END

       select
            latestchangesequipment.equipmentid,
            latestchangesequipment.max_of_equipmentpardatetime,
            max(equipmenthistory.equipmentpardatetime) max_of_equipmentpardatetime1
        from latestchangesequipment
            left outer join equipmenthistory on (equipmenthistory.equipmentid = latestchangesequipment.equipmentid)
        where (equipmenthistory.equipmentparslistid = 13)
        group by latestchangesequipment.equipmentid, latestchangesequipment.max_of_equipmentpardatetime

      select employees.firstname,
             employees.lastname,
             employees.patronymic,
             employees.personalid
      from SPLITSTRING('1,2';',')
             left outer join employees on (employees.id = CAST(SPLITSTRING.part_of_the_string as NUMERIC))

SELECT * FROM SPLITSTRING('1,2,3', ',')

create or alter procedure SPLITSTRING (
    S varchar(100),
    SEPARATOR varchar(1))
returns (
    PART_OF_THE_STRING varchar(100))
as
declare variable I integer;
declare variable POS integer;
declare variable PART_OF_THE_STRING_TMP varchar(100);
BEGIN
  I = 0;
  POS = 0;
  PART_OF_THE_STRING = '';
  PART_OF_THE_STRING_TMP = '';
  WHILE (:I < CHAR_LENGTH (:S)) DO
    BEGIN
      I = :I + 1;
      PART_OF_THE_STRING_TMP = SUBSTRING (:S FROM :I FOR 1);
      IF (:PART_OF_THE_STRING_TMP = :SEPARATOR) THEN
        BEGIN
          POS = :POS + 1;
          suspend;
          PART_OF_THE_STRING = '';
        END
      ELSE
        BEGIN
          PART_OF_THE_STRING = :PART_OF_THE_STRING || :PART_OF_THE_STRING_TMP;
        END
    END
  suspend;
END

SELECT * FROM SPLITSTRING('1,2,3', ',')