Te pongo un ejemplo:
Código SQL
[-]
CREATE PROCEDURE REPETITIVO(CODIGO VARCHAR(4) , TALLA INTEGER,REPETICION SMALLINT)
RETURNS( VALOR VARCHAR(14) )
AS
DECLARE VARIABLE TEMPORAL SMALLINT;
BEGIN
Temporal = 0;
For Select Codigo_Barra From ART_TAL_COL
Where CODIGO_ARTICULO = :Codigo and TALLA = :Talla
Into :Valor
Do
While (Temporal < :Repeticion) Do
Begin
Temporal = Temporal + 1;
SUSPEND;
End
END
Ejemplo de llamada:
Código SQL
[-]
Select * From PROCEDURE REPETITIVO('0001',40,7);