CREATE OR REPLACE FUNCTION FINTOOLS.BFC (
    par1
  RETURNS TABLE  (
    ID_L	INTEGER,
    ID_T	INTEGER,
    ID_F	INTEGER,
    VALUE	DECIMAL(31, 14) )
  SPECIFIC SQL091123141987654
  LANGUAGE SQL
BEGIN ATOMIC
   RETURN WITH rec1 (BOOK_DATE, ID_L, ID_T, ID_F, VALUE)
               AS (SELECT t1.BOOK_DATE,
                          t1.ID_LIABILITY,
                     FROM TRANSACTION.LIABILITY_SDEPO t1 
                    WHERE t1.ID_PERSON_FUND IN
                             (SELECT 3,5)
                                           ,
               rec2 (BOOK_DATE, BOOK_DATE_END, VALUE)
               AS (SELECT t1.BOOK_DATE,
                         СURRENT_DATE
                       ,
                             date ('9999-01-01')),
                             7
                     FROM rec1 t1)
          SELECT ID_L,
                 ID_T,
                 ID_F,
                 VALUE
            FROM rec2
           WHERE     CURRENT_DATE BETWEEN BOOK_DATE AND CURRENT DATE
                 AND VALUE <> 0  with ur ;
END;

CREATE OR REPLACE FUNCTION "F"."BFCUR" (
    "ID"	INTEGER
    )
  RETURNS TABLE  (ID INTEGER)

BEGIN ATOMIC
      DECLARE ADATE_OTH   DATE;
          with rec21 (ID) as 
            (select ID
            from BALANCE.BANKR
            )
             SELECT 
                    ID
               FROM rec21
             with ur;  
   END;