CURRENT-VALUE statement

Resets the current integer value of a sequence defined in the Data Dictionary.

Syntax

CURRENT-VALUE ( sequence[ , logical-dbname][ , tenant-id ] ) = expression
sequence
An identifier that specifies the name of a sequence defined in the Data Dictionary.
logical-dbname
An identifier that specifies the logical name of the database in which the sequence is defined. The database must be connected. You can omit this parameter if the sequence name is unambiguous. If more than one connected database has a sequence with given name, then you must supply logical-dbname.
tenant-id
An integer expression that evaluates to the tenant ID of a regular tenant, including the default tenant (0). This option applies only to a multi-tenant sequence specified by sequence and is intended for access primarily by a super-tenant user.

If you are a regular-tenant user and you specify tenant-id, the specified tenant must be the same as the tenant associated with the database connection identity for logical-dbname or the AVM raises a run-time error.

If you are a super-tenant user and you do not specify tenant-id, the function assumes the effective tenant ID (GET-EFFECTIVE-TENANT-ID function).

If the sequence specified by sequence is non-multi-tenant (a shared sequence in a multi-tenant database), and you specify tenant-id, the option is ignored.

expression
An integer expression assigned as the current value of the specified sequence. If expression is outside the boundary set by the initial value (at one end) and the lower limit or upper limit (at the other end) for the sequence, the AVM returns an error, and the sequence value remains unchanged.

Example

The following example resets the current value of the NextCustNum sequence to the CustNum value of the last Customer record if that is a valid value for the sequence:

r-curvl1.p

FIND LAST customer NO-LOCK.

IF Customer.CustNum < CURRENT-VALUE(NextCustNum) AND
  Customer.CustNum > 1000 THEN DO:
  CURRENT-VALUE(NextCustNum) = Customer.CustNum.
  MESSAGE "The value of NextCustNum has been changed to"
    Customer.CustNum VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
END.
ELSE 
  MESSAGE "The value of NextCustNum remains"
    CURRENT-VALUE(NextCustNum) VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

Notes

See also

CURRENT-VALUE function, DYNAMIC-CURRENT-VALUE function, DYNAMIC-CURRENT-VALUE statement, DYNAMIC-NEXT-VALUE function, NEXT-VALUE function