SET (p1,p2,p3) =

 ( select max(p1),max(p2),max(p3) 
    from t1
       left join TABLE(func1(t1.pt1)) AS t2
       left join t3 on t3.val=t2.val
 )

 SET (p1,p2,p3) =

 ( select max(p1),max(p2),max(p3) 
    from TABLE(func1('constanta')) AS t2
       left join t1 on t1.val=t2.val
       left join t3 on t3.val=t1.val
 )

SET (p1,p2,p3) =
   (select max(z.p1),max(z.p2),max(t3.p3) 
    from (
          select t1.p1, t2.p2, t2.val
            from t1 left join TABLE(func1(t1.pt1)) AS t2
       ) z
       left join t3 on t3.val=z.val
   )

select max(p1),max(p2),max(p3) into p1, p2, p3
    from t1
       left join TABLE(func1(t1.pt1)) AS t2
       left join t3 on t3.val=t2.val;

create function PR_B_PORT_RATE (  
    ...
    PORT VARCHAR( 255 ))
returns table 
(
    OFICDATE timestamp,
    ...
    IS_MARKET_RATE integer)
LANGUAGE SQL
MODIFIES SQL DATA
BEGIN ATOMIC 
    DECLARE A_MODE$ VARCHAR( 255 );
    DECLARE MODE$ VARCHAR( 255 );
    DECLARE O_MODE$ VARCHAR( 255 );
    DECLARE A_RATER$  integer;
    DECLARE RATER$  integer;
    DECLARE O_RATER$  integer;
    DECLARE I_TYPE$  integer;
    DECLARE STAVKA$  numeric(  22 ,  7 );
 
    ....
 
      select  max(AM.DOP), max(OM.DOP), max(C.A_RATER), max(C.O_RATER), max(C.I_TYPE), max(C.STAVKA) 
             into A_MODE$,O_MODE$,A_RATER$,O_RATER$,I_TYPE$,STAVKA$
      from table(PR_STR_TO_LIST(pr_b_port_rate.PORT)) as L
      left join D_B_CONTRACTS C on C.DOC=L.VAL
      left join OD_SYS_TABS AM on AM.NUM=C.A_MODE and AM.CODE='RATE_MODE'
      left join OD_SYS_TABS OM on OM.NUM=C.O_MODE and OM.CODE='RATE_MODE';

    .... 
    далее еще метр текста

SQL0104N  Обнаружен неправильный элемент "A_MODE$" после текста ")             
into".  Список правильных элементов: "<space>".  LINE NUMBER= 66 .  
SQLSTATE= 42601 

-- Создание служебной таблицы для эмуляция SUSPEND
create table TF_PR_STR_TO_LIST ( id_session varchar( 255 ), VAL integer ) ^ 
-- выделение из строки термов, разделенных запятой
create function PR_STR_TO_LIST ( STR VARCHAR( 255 )) 
returns table ( VAL integer)
LANGUAGE SQL
MODIFIES SQL DATA
BEGIN ATOMIC 
    DECLARE P$  integer;
    DECLARE L$  integer;
    DECLARE STR# VARCHAR( 255 );

    DECLARE w_VAL integer;
    
    -- приложение однопоточное поэтому ключ application_id() достаточен 
    delete from TF_PR_STR_TO_LIST  where id_session=application_id(); 
    
        set STR# =STR;
        SET P$ = f_substr( ',', STR# );
        SET L$ = f_strlen( STR# );
        while (P$>= 0 ) DO 
            SET w_VAL = int(f_left( STR#, P$ ));
            SET L$ = L$-P$- 1 ;
            SET STR# = f_right( STR#, L$ );
            insert into TF_PR_STR_TO_LIST values ( application_id(), w_VAL );
            SET P$ = f_substr( ',', STR# );
        end while;
        if (L$> 0 ) then
            SET w_VAL = int(STR#);
            insert into TF_PR_STR_TO_LIST values ( application_id(), w_VAL );
        end if;
        return  select  VAL  from TF_PR_STR_TO_LIST where id_session=application_id();
 END ^ 

insert into t2 ( p1 ) 
   select p1 from  table( func(param) ) as T

     with WT as (select p1 from  table( func(param) ) as T )   
        select p1 from WT

     with WT as (select p1 from  table( func(param) ) as T )   
       insert into t2 ( p1 )  
        select p1 from WT