Stored Procedures and functions

DROP PROCEDUREproc_z4;CREATE PROCEDUREproc_z4 ()BEGIN    DECLARECardCHAR( -); DECLARE Count INT; SELECT Count(*) into Count  fromZ4; BEGIN        DECLARECurCURSOR  for SELECTCard fromZ4; OPENcur;  while Count>0 DoFETCHCur intoCard; IFCard=' -'  Then                INSERT  intoZ3 (card)VALUES(card); END IF; SET Count=Count-1; END  while; CLOSEcur; END; END;DROP FUNCTIONFUN_WJF;CREATE FUNCTIONFUN_WJF (cCHAR( -))RETURNs CHAR( -) LANGUAGE SQLBEGINATOMICRETURN RTrim(c)||'a';END

CREATE FUNCTION CHAR ()) RETURNs CHAR (LANGUAGE) SQL BEGIN ATOMIC     RETURN RTrim (c) || ' a ' ; END

SELECT  from Z3;

Stored Procedures and functions