EXECUTE IMMEDIATE 'CREATE TABLE "tblForTim"
(
"idtbllogfiles" INTEGER GENERATED BY DEFAULT AS IDENTITY
(START WITH 0, INCREMENT BY 1) NOT NULL,
"LogType" VARCHAR(3) COLLATE "ANSI_CI" NOT NULL,
"DateLastUpdated" TIMESTAMP,
"LastUpdatedBy" VARCHAR(3) COLLATE "ANSI_CI" NOT NULL,
"ResNumber" INTEGER NOT NULL,
"Description" CLOB COLLATE "ANSI_CI" COMPRESSION 6 NOT NULL
)
VERSION 1
UNENCRYPTED
INDEX PAGE SIZE 4096
BLOB BLOCK SIZE 512
PUBLISH BLOCK SIZE 512
PUBLISH COMPRESSION 6
MAX ROW BUFFER SIZE 32768
MAX INDEX BUFFER SIZE 65536
MAX BLOB BUFFER SIZE 32768
MAX PUBLISH BUFFER SIZE 32768';

EXECUTE IMMEDIATE 'CREATE TEXT INDEX "ndxDescription" ON "tblForTim" ("Description" COLLATE "ANSI_CI")
INDEXED WORD LENGTH 30
WORD GENERATOR "Default"';

EXECUTE IMMEDIATE 'CREATE INDEX "ndxResNumber" ON "tblForTim" ("ResNumber")';

EXECUTE IMMEDIATE 'ALTER TABLE "tblForTim"
ADD CONSTRAINT "PRIMARY" PRIMARY KEY ("idtbllogfiles")';

ALTER TABLE "tblForTim" ALTER COLUMN "DateLastUpdated" AS TIMESTAMP

{ in Delphi I do this once }
INSERT INTO tblForTim ("LogType","DateLastUpdated","LastUpdatedBy","ResNumber","Description")
Values(:LogType, :DateLastUpdated, :LastUpdatedBy, :ResNumber, :Description );
TEDBQuery(qryTemp).SQL.Text := sSQL;
TEDBQuery(qryTemp).Prepare;

{ then each subsequent call I execute }
    TEDBQuery(qryTemp).ParamByName('LogType').AsString := p_recLogFile.LogType;
    TEDBQuery(qryTemp).ParamByName('DateLastUpdated').AsDateTime := p_recLogFile.DateLastUpdated;
    TEDBQuery(qryTemp).ParamByName('LastUpdatedBy').AsString := p_recLogFile.LastUpdatedBy;
    TEDBQuery(qryTemp).ParamByName('ResNumber').AsString := IntToStr(p_recLogFile.ResNumber);
    TEDBQuery(qryTemp).ParamByName('Description').AsString := sWork;
    TEDBQuery(qryTemp).ExecSQL;

{ when all done, I put things back }
ALTER TABLE "tbllogfiles" ALTER COLUMN "DateLastUpdated" AS TIMESTAMP GENERATED ALWAYS AS CURRENT_TIMESTAMP()