(* ##################### Create the timestamp ##################### *)
NT_GetTime1( START:= bTimestart, TIMESTR=> tTime);
IF NOT NT_GetTime1.BUSY THEN
    bTimestart := NOT bTimestart;
END_IF

FB_FormatStringDateTime(
    sFormat:= '$'%.3D.%.2D.%.2D %.2D:%.2D:%.2D$'',
    arg1:= F_WORD(tTime.wYear),
    arg2:= F_WORD(tTime.wMonth),
    arg3:= F_WORD(tTime.wDay),
    arg4:= F_WORD(tTime.wHour),
    arg5:= F_WORD(tTime.wMinute),
    arg6:= F_WORD(tTime.wSecond),
    sOut=> sDateTimeString);


MEMSET(ADR(sLOG), 0, SIZEOF(sLOG));
MEMSET(ADR(sHelp), 0, SIZEOF(sHelp));

(* ##################### Create INSERT Command ##################### *)

sLOG := 'INSERT INTO myTable VALUES(';
sLOG := CONCAT(sLOG, sDateTimeString);

nSize := LEN(sLOG);

sHelp := CONCAT(CONCAT(',$'',stTEST.sName),'$'');
MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));

nSize := nSize + LEN(sHelp);

sHelp := CONCAT(',',INT_TO_STRING(stTEST.nValue1));
MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));

nSize := nSize + LEN(sHelp);

sHelp := CONCAT(',',INT_TO_STRING(stTEST.nValue2));
MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));

nSize := nSize + LEN(sHelp);

CASE stTEST.eStatus OF
    eError:
        sHelp := ',$'ERROR$')';
    eOK:
        sHelp := ',$'OK$')';
    eTest:
        sHelp := ',$'TEST$')';
    eNone:
        sHelp := ',$'NONE$')';
END_CASE
MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));

(* ##################### Send INSERT Command ##################### *)

fbDBRecordInsert_EX(
    sNetID:= ,
    hDBID:= 1,
    cbCmdSize:= LEN(sLOG) + 1,
    pCmdAddr:= ADR(sLOG),
    bExecute:= bWriteLOG,
    tTimeout:= T#15s,
    bBusy=> bBusy,
    bError=> bError,
    nErrID=> bErrID);