Firebird procedure example

Here is an example of how to write a procedure in Firebird using an existing relation called CUSTOMER

SET TERM ^ ;

CREATE PROCEDURE NEWCUSTNUM

RETURNS
 ( custNum2 integer, CUST_No integer, CUSTOMER varchar (25) )
AS

BEGIN
  custNum2 = 7000;
  for SELECT CUST_NO, CUSTOMER
FROM CUSTOMER
WHERE CUSTOMER.CUST_NO >=1000 AND CUSTOMER.CUST_NO <=1009

into :CUST_NO, :CUSTOMER

DO
begin
custNum2 = 7000 + :CUST_NO;
suspend;

END
end^
SET TERM ; ^