Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Sep 7th, 2012  |  syntax: Fortran  |  size: 1.62 KB  |  hits: 10  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (* ##################### Create the timestamp ##################### *)
  2. NT_GetTime1( START:= bTimestart, TIMESTR=> tTime);
  3. IF NOT NT_GetTime1.BUSY THEN
  4.         bTimestart := NOT bTimestart;
  5. END_IF
  6.  
  7. FB_FormatStringDateTime(
  8.         sFormat:= '$'%.3D.%.2D.%.2D %.2D:%.2D:%.2D$'',
  9.         arg1:= F_WORD(tTime.wYear),
  10.         arg2:= F_WORD(tTime.wMonth),
  11.         arg3:= F_WORD(tTime.wDay),
  12.         arg4:= F_WORD(tTime.wHour),
  13.         arg5:= F_WORD(tTime.wMinute),
  14.         arg6:= F_WORD(tTime.wSecond),
  15.         sOut=> sDateTimeString);
  16.  
  17.  
  18. MEMSET(ADR(sLOG), 0, SIZEOF(sLOG));
  19. MEMSET(ADR(sHelp), 0, SIZEOF(sHelp));
  20.  
  21. (* ##################### Create INSERT Command ##################### *)
  22.  
  23. sLOG := 'INSERT INTO myTable VALUES(';
  24. sLOG := CONCAT(sLOG, sDateTimeString);
  25.  
  26. nSize := LEN(sLOG);
  27.  
  28. sHelp := CONCAT(CONCAT(',$'',stTEST.sName),'$'');
  29. MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));
  30.  
  31. nSize := nSize + LEN(sHelp);
  32.  
  33. sHelp := CONCAT(',',INT_TO_STRING(stTEST.nValue1));
  34. MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));
  35.  
  36. nSize := nSize + LEN(sHelp);
  37.  
  38. sHelp := CONCAT(',',INT_TO_STRING(stTEST.nValue2));
  39. MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));
  40.  
  41. nSize := nSize + LEN(sHelp);
  42.  
  43. CASE stTEST.eStatus OF
  44.         eError:
  45.                 sHelp := ',$'ERROR$')';
  46.         eOK:
  47.                 sHelp := ',$'OK$')';
  48.         eTest:
  49.                 sHelp := ',$'TEST$')';
  50.         eNone:
  51.                 sHelp := ',$'NONE$')';
  52. END_CASE
  53. MEMCPY(ADR(sLOG)+nSize, ADR(sHelp), SIZEOF(sHelp));
  54.  
  55. (* ##################### Send INSERT Command ##################### *)
  56.  
  57. fbDBRecordInsert_EX(
  58.         sNetID:= ,
  59.         hDBID:= 1,
  60.         cbCmdSize:= LEN(sLOG) + 1,
  61.         pCmdAddr:= ADR(sLOG),
  62.         bExecute:= bWriteLOG,
  63.         tTimeout:= T#15s,
  64.         bBusy=> bBusy,
  65.         bError=> bError,
  66.         nErrID=> bErrID);
create a new version of this paste RAW Paste Data