Description
Create a fcSession record directly in the DB.
Parameters
iiSessionInstanceId | input | integer | |
icGlobalSessionId | input | character | |
iiSessionLastCheckTime | input | integer | |
itSessionLastCheckDate | input | date | |
iiGlobalSessionLastCheckTime | input | integer | |
itGlobalSessionLastCheckDate | input | date | |
ilGlobalSessionNeedsUpdate | input | logical | |
iiSessionTimeOut | input | integer | |
iiGlobalSessionDebugLevel | input | integer | |
oiReturnStatus | output | integer | Return 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).