execute ibeblock
as
begin
  basePath = ibec_GetEnvironmentVariable('TEMP');

  scriptPath = basePath + '\FB\';

  cbb = 'execute ibeblock (BlockData variant)
         as
         begin
           sMessage = BlockData;
           if (sMessage is not null) then
             ibec_Progress(sMessage);
         end';

  db = ibec_GetDefaultConnection();
  ibec_ExecSQLScript(db, scriptPath + 'data.sql', 'ServerVersion=FB30; StopOnError=TRUE', cbb);
  ibec_ExecSQLScript(db, scriptPath + 'gen.sql', 'ServerVersion=FB30; StopOnError=TRUE', cbb);

  ibec_DeleteFile(scriptPath + 'data.sql');
  ibec_DeleteFile(scriptPath + 'data.lob');
  ibec_DeleteFile(scriptPath + 'gen.sql');

  ibec_RemoveDirectory(scriptPath);
end^