PreviousNextIndex

RECID function

Returns the unique internal identifier of the database record currently associated with the record buffer you name. This internal identifier has the data type RECID, a four-byte value that is supported by OpenEdge databases and some non-OpenEdge DataServers.

This function is supported for backward compatibility. For most applications, use the ROWID function, instead. For more information, see the ROWID function reference entry.

Syntax

RECID ( record ) 

record
Example

You might decide that you do not want to lock a record until the user starts to update that record. In the example procedure, the FIND statement reads a Customer record without locking the record. The RECID function puts the internal database identifier of that record in the crecid variable. If the user decides to update the CreditLimit field, the procedure finds the record again using the value in crecid. The second FIND statement reads the record again, this time placing an EXCLUSIVE-LOCK on it. Because the record is first found with NO-LOCK, it is possible for the record to be updated by another user after the first FIND and before the second.

r-recid.p
DEFINE VARIABLE response AS LOGICAL NO-UNDO. 
DEFINE VARIABLE crecid   AS RECID   NO-UNDO. 
REPEAT: 
  PROMPT-FOR Customer.CustNum. 
  FIND Customer NO-LOCK USING Customer.CustNum. 
  crecid = RECID(Customer). 
  DISPLAY Customer.name. 
  response = YES. 
  UPDATE response LABEL "Update credit-limit ?". 
  IF response THEN DO: 
    FIND Customer WHERE RECID(Customer) = crecid EXCLUSIVE-LOCK. 
    UPDATE Customer.CreditLimit. 
  END. 
END. 

Notes
See also

DEFINE BUFFER statement, DEFINE VARIABLE statement, Record phrase, ROWID function


OpenEdge Release 10.2B
Copyright © 2009 Progress Software Corporation
PreviousNextIndex