CREATE TABLE ALS.CITY
 (CITY_ID      INTEGER	NOT NULL,
  CITY_NAME		 VARCHAR( 8 )
 ) @
 
 
CREATE FUNCTION ALS.ALLCITY
 (pCITY_ID INTEGER
 ) 
  RETURNS VARCHAR( 1024 )
  SPECIFIC ALS.ALLCITY
  LANGUAGE SQL
  DETERMINISTIC
  READS SQL DATA
  STATIC DISPATCH
  CALLED ON NULL INPUT
  EXTERNAL ACTION
  INHERIT SPECIAL REGISTERS
BEGIN ATOMIC
   DECLARE return_result VARCHAR( 1024 );
   
   DECLARE SQLCODE INTEGER DEFAULT  0 ;
   DECLARE C1 CURSOR FOR
	SELECT	CITY_NAME FROM	CITY WHERE  CITY_ID = pCITY_ID;
	
	OPEN C1;
	FETCH C1 INTO city_name;
	
	WHILE SQLCODE =  0  DO
			return_result = return_result || city_name;
	FETCH C1 INTO city_name;
	END WHILE;
	
	CLOSE C1;
      
   RETURN return_result;  
END @