Запись в BLOB со стороны клиента

CREATE OR ALTER PROCEDURE P_INSERT_IN_BLOB (
    FILES_PATH VARCHAR(255),
    IN_TABLE VARCHAR(64),
    IN_FIELD VARCHAR(64),
    FIELD_ID VARCHAR(64),
    ID_RECORD INTEGER)
RETURNS (
    OK INTEGER)
AS
DECLARE variable IDSTR VARCHAR(10);
DECLARE variable TEXT VARCHAR(255);
BEGIN
/*22.02.2019 ,14.03.2019*/
OK=1;
  IDSTR= rtrim(ltrim(CAST(:id_record AS VARCHAR(30))));
 /*  update sprmat set  ip$blob = null  where  ID=:idstr;
    LoadBlobFromFile
  update sprmat set  ip$blob = addtoblob(:files_path,'IP$BLOB')  where  ID=:idstr;   */
/*  {Так было}    */
  text = 'update '||:IN_TABLE||' set '||:IN_FIELD||'=LoadBlobFromFile('''|| :files_path || ''') where '||:FIELD_ID ||' ='|| :IDSTR ;
/*execute statement( text); */
 
 
/*text =   'update '|| :in_table||' set  '|| :in_field ||' = addtoblob('||:b||''''||(:files_path)||','''||:in_field||''') where ' ||:field_id||'='||:idstr ;
 
/*execute statement( 'update '||:IN_TABLE||' set '||:IN_FIELD||'=addtoblob('''|| :files_path || ''','''||:in_field|| ''')'||' where '||:FIELD_ID ||'='||IDSTR);
/*update sprmat set  ip$blob = addtoblob(:b,'IP$BLOB')  where  kod='17174' */
EXECUTE statement( text);
  /* Procedure Text */
  suspend;
END

CREATE OR ALTER PROCEDURE P_READ_FROM_BLOB (
    FILES_PATH CHAR(255),
    IN_TABLE VARCHAR(64),
    IN_FIELD VARCHAR(64),
    FIELD_ID VARCHAR(64),
    ID_RECORD INTEGER)
RETURNS (
    RESULT INTEGER)
AS
DECLARE variable IDSTR VARCHAR(10);
DECLARE variable TEXT VARCHAR(255);
DECLARE variable OK INTEGER;
BEGIN
RESULT=0;
  IDSTR= rtrim(ltrim(CAST(:id_record AS VARCHAR(30))));
text =  'select SAVEBLOBTOFILE('||:in_field||','||''''||rtrim(:files_path)||''')'||' FROM '||:in_table||' where '||:field_id||'='||IDSTR;
EXECUTE statement(text) INTO ok;
IF (ok>0) THEN  RESULT=1;
 
  suspend;
END