project BLF > class Persistence (other) > method GetCurrentValue

function returns integer

Description

Lookup the current-value of a database sequence


Parameters


icSequenceinputcharacterdatabase sequence name

It is possible to provide extra sequences not known in the application database by extending the persistence layer class and adding a method named 'Current<icSequence>' which will be responsible for returning a unique value.


Internal usage


unused


program code (program1/other.p)

run SqlGetSequence in {&TARGETPROCEDURE}
   (icSequence, 0, output viSeq, output viReturnStatus).
if viReturnStatus <> 0 
then return ?.
return viSeq.