SET TERM ^ ;

CREATE OR ALTER PROCEDURE SPC_ARQUIVOS_GRANDES (
    TABELAI VARCHAR(100) = 'TBUSUARIO',
    TAMANHO_MBI DECIMAL(15,4) = 2.5
)
RETURNS (
    ID INTEGER,
    DESCRICAO VARCHAR(255),
    ARQUIVOS_GRANDES_JSON VARCHAR(4000))
AS
BEGIN
    FOR SELECT
        ID,
        DESCRICAO,
        (SELECT
            '['||LIST(FN_TO_JSON_V2(
                FN_TO_PAR_JSON_V2('ID', Y.ID),
                FN_TO_PAR_JSON_V2('TABELA_ID', Y.TABELA_ID),
                FN_TO_PAR_JSON_V2('ARQUIVO', Y.ARQUIVO),
                FN_TO_PAR_JSON_V2('TABELA', Y.TABELA),
                FN_TO_PAR_JSON_V2('DATAHORA', Y.DATAHORA),
                FN_TO_PAR_JSON_V2('TAM_BLOB_MB', Y.TAM_BLOB_MB)
            ))||']' AS ARQUIVOS_GRANDES_JSON
        FROM SPC_TAMANHO_ARQUIVOS(:TABELAI, SERVIDOR, DB, USUARIO, SENHA, :TAMANHO_MBI) Y)
    FROM (
        SELECT
            T.ID            AS ID,
            T.DESCRICAO     AS DESCRICAO,
            T.SERVIDOR      AS SERVIDOR,
            T.DB            AS DB,
            T.USUARIO       AS USUARIO,
            T.SENHA         AS SENHA
        FROM TBFIREBIRD_ADMIN_DB T
        WHERE T.PASTA_ID = 2
    ) X
    INTO :ID, :DESCRICAO, :ARQUIVOS_GRANDES_JSON
    DO
    BEGIN
        SUSPEND;
    END
END
^

SET TERM ; ^