select unique name as prodname, (<procedure> p3_get_param, "plastic code", "", name) as plasticsort, (<procedure> upper, (<procedure> p3_get_param, "plastic source", "P", name)) as plasticsource
  from tparams
  into temp tpasticsort with no log;

 execute function cap.p3_get_param[procid= 2468 ] ( fname = plastic code ,  fdefaultvalue =  ,  fproduct = AAA   )
 default value  fproduct = NULL.

set debug file to (<procedure> cap_getparam, "center", "error log file", "\temp\caperr.log");

execute function cap.cap_getparam[procid= 352 ] ( fsection = center ,  fitem = error log file ,  fdefaultvalue = \temp\caperr.log ,  fproduct = (Default) )
default value  fproduct = (Default)
expression:
  (select value
    from parameters
    where (and (and (= section, fsection), (= item, fitem)), (= product, fproduct)))
evaluates to c:\tmp\caperr.log ; 
let fvalue = c:\tmp\caperr.log 
expression:(null fvalue)
evaluates to f 
expression:fvalue
evaluates to c:\tmp\caperr.log 
procedure cap_getparam returns c:\tmp\caperr.log 

ON EXCEPTION                             -- In case of error catch it here and log it.

        SET Sql_e, Isam_e, Txt_e
        
        BEGIN

                DEFINE Sql_trace Smallint;
                DEFINE Isam_trace smallint;
                DEFINE Txt_trace Char( 80 );

                ON EXCEPTION                               -- In case of an error during trace
                        SET  Sql_trace, Isam_trace, Txt_trace
                        TRACE  '        ' || sql_trace || '     ' || isam_trace || '    ' || txt_trace;
                END EXCEPTION WITH RESUME;
                TRACE  Current || '     ' || user || '  ' || sql_e || ' ' || isam_e || '        ' || txt_e;
        END
        
        RAISE EXCEPTION Sql_e, Isam_e, Txt_e;
END EXCEPTION;