Use the SET TERM to make it recognize a different terminator charactor.

set term #;
CREATE PROCEDURE SET_KODE RETURNS (
NEW_KD INTEGER
) AS
BEGIN new_kd=gen_id(GEN_TEST,1);
END
#
set term ;#
commit;

HTH,
Jason