/******************************************************************************/
/****          Generated by IBExpert 2018.4.1.1 30.5.2018 8:48:34          ****/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES WIN1250;





/******************************************************************************/
/****                          Stored procedures                           ****/
/******************************************************************************/



SET TERM ^ ;

CREATE PROCEDURE SAMPLE
RETURNS (
    FIELD1 INTEGER,
    FIELD2 INTEGER,
    LIST_FIELD3 VARCHAR(550))
AS
BEGIN
  SUSPEND;
END^






SET TERM ; ^



/******************************************************************************/
/****                                Tables                                ****/
/******************************************************************************/



CREATE TABLE X (
    FIELD1  INTEGER,
    FIELD3  INTEGER,
    FIELD2  INTEGER
);



/******************************************************************************/
/****                          Stored procedures                           ****/
/******************************************************************************/



SET TERM ^ ;

ALTER PROCEDURE SAMPLE
RETURNS (
    FIELD1 INTEGER,
    FIELD2 INTEGER,
    LIST_FIELD3 VARCHAR(550))
AS
begin
   for select sum(FIELD1), FIELD2, list(all FIELD3, '#') from X
       group by FIELD2
       into :FIELD1, :FIELD2, :LIST_FIELD3
   do
      suspend;
end^



SET TERM ; ^