Fórum Sp para gravar dados na base #56373

CREATE PROCEDURE CRIA_RELATORIO_OS_EM_ABERTO(
    I_DATA_PREVISAO DATE)
AS
DECLARE VARIABLE V_COD_OS CHAR(15);
begin
    delete from TE0300;
    for select distinct C_COD_OS 
    from CM0100 
    where C_DATA_PREVISAO <= :I_DATA_PREVISAO and C_DATA_EXECUCAO is null
    into :V_COD_OS do
    suspend;
    insert into TE0300(C_COD_OS) values (´´ || :V_COD_OS || ´´);
end