CREATE GENERATOR IDGEN;
SET GENERATOR IDGEN TO 0;

CREATE TABLE USERS (
    ID INTEGER,
	TEXTFIELD VARCHAR(127) COLLATE UNICODE,
    CONSTRAINT PK_USERS PRIMARY KEY(ID)
);

SET TERM ^ ;

CREATE PROCEDURE GENERATE_DATA
AS
BEGIN
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abun');
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abu-k');	
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abuk');	
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abu-n');
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abu-');
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abum');
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abu-m');
	INSERT INTO USERS (ID,TEXTFIELD) VALUES (GEN_ID(IDGEN, 1),'abu');
END
^

CREATE PROCEDURE TEST
RETURNS (
	TEXTFIELD VARCHAR(127))
AS
BEGIN
	FOR SELECT TEXTFIELD
	FROM USERS
	ORDER BY TEXTFIELD
	INTO :TEXTFIELD
	DO
	BEGIN
		SUSPEND;
	END
END
^