Abaixo temos o código embaralhado de uma Procedure para um banco de dados do Firebird 2.5.
| 1 | IF(EXISTS(SELECT id FROM ENTIDADE WHERE ID = :ID)) |
| 2 | BEGIN |
| 3 | ID = GEN_ID(ID, 1); |
| 4 | RT = 0; |
| 5 | END |
| 6 | (NOME VARCHAR(60), DATA_NASC DATE) |
| 7 | THEN BEGIN RT = :ID; |
| 8 | CREATE PROCEDURE SP_GRAVAR |
| 9 | AS DECLARE VARIABLE ID INTEGER; |
| 10 | INSERT INTO ENTIDADE(ID, NOME, DATA_NASC) |
| 11 | VALUES (:ID, :NOME, :DATA_NASC); |
| 12 | RETURNS(RT INTEGER) |
| 13 | END SUSPEND; |
A sequência correta das linhas de código para que a procedure seja executada sem erros é:
