method CreateFcSession

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).