project BLF > class Persistence (other) > method CreateFcSession

Description

Create a fcSession record directly in the DB.


Parameters


iiSessionInstanceIdinputinteger
icGlobalSessionIdinputcharacter
iiSessionLastCheckTimeinputinteger
itSessionLastCheckDateinputdate
iiGlobalSessionLastCheckTimeinputinteger
itGlobalSessionLastCheckDateinputdate
ilGlobalSessionNeedsUpdateinputlogical
iiSessionTimeOutinputinteger
iiGlobalSessionDebugLevelinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/other.p)

&if defined(DEBUGSQL) > 0 &then
run SqlDebugWrite in {&TARGETPROCEDURE} ("* ":U + program-name(1), 1).
&endif

run SqlBufCreate in {&TARGETPROCEDURE}
   ("fcSession":U, output viBufferId, output oiReturnStatus).

run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "SessionInstance_ID":U, "integer":U, 1, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "GlobalSessionId":U, "character":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "SessionLastCheckTime":U, "integer":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "SessionLastCheckDate":U, "DATE":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "GlobalSessionLastCheckTime":U, "integer":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "GlobalSessionLastCheckDate":U, "DATE":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "GlobalSessionNeedsUpdate":U, "LOGICAL":U, 0, output viFieldId, output oiReturnStatus).
run SqlBufAddField in {&TARGETPROCEDURE}
   (viBufferId, "SessionTimeOut":U, "integer":U, 0, output viFieldId, output oiReturnStatus).


run SqlFldSetInteger in {&TARGETPROCEDURE}
   (viBufferId, 0, 1, iiSessionInstanceId, output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
   (viBufferId, 1, 1, icGlobalSessionId, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
   ( viBufferId, 2, 1, iiSessionLastCheckTime, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
   ( viBufferId, 3, 1, integer(itSessionLastCheckDate), output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
   ( viBufferId, 4, 1, iiGlobalSessionLastCheckTime, output oiReturnStatus).
run SqlFldSetString in {&TARGETPROCEDURE}
   ( viBufferId, 5, 1, integer(itGlobalSessionLastCheckDate), output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
   (viBufferId, 6, 1, ilGlobalSessionNeedsUpdate, output oiReturnStatus).
run SqlFldSetInteger in {&TARGETPROCEDURE}
   (viBufferId, 7, 1, iiSessionTimeOut, output oiReturnStatus).

run SqlBufInsertRow in {&TARGETPROCEDURE}
   (viBufferId, output oiReturnStatus).
run SqlBufDestroy in {&TARGETPROCEDURE}
   (viBufferId, output viFcReturnSuper).