OpenEdge 10 is ancient and obsolete. You should upgrade.
Ok I understant, it's planne for us to do it but not right now.
The sooner you get to a modern release of OpenEdge, the better. By "modern" I mean the current release at the time of your planned upgrade, with the latest service pack (unless you have some compelling reason to do otherwise). Right now, that would be OE 11.7.3.And I'm in 10.2b 0.5
FIND FIRST mBUFFER WHERE mBUFFER.proref = "19870" EXCLUSIVE-LOCK NO-ERROR.
MESSAGE STRING(ROWID(mBUFFER))
VIEW-AS ALERT-BOX INFO BUTTONS OK.
DEFINE VARIABLE k AS INTEGER.
DEFINE VARIABLE c AS CHARACTER FORMAT "X(18)".
DEFINE VARIABLE j AS INTEGER NO-UNDO.
k = 3532.
DO WHILE TRUE:
ASSIGN
j = k MODULO 16
c = (IF j < 10 THEN STRING(j) ELSE CHR(ASC("A") + j - 10)) + c.
IF k < 16 THEN
LEAVE.
k = (k - j) / 16.
END.
MESSAGE c
VIEW-AS ALERT-BOX INFO BUTTONS OK.
j = 16 - LENGTH(c).
DO k = 1 TO j:
c = "0" + c.
END.
c = "0x" + c.
IF c <> STRING(TO-ROWID(STRING(ROWID(mBUFFER)))) THEN
MESSAGE "looser"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
ELSE
MESSAGE "ok"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
MESSAGE STRING(TO-ROWID(STRING(ROWID(mBUFFER)))) SKIP
STRING(TO-ROWID(c))
VIEW-AS ALERT-BOX INFO BUTTONS OK.
c = STRING(ROWID(mBUFFER)).
FIND FIRST SDTPRA WHERE ROWID(mBUFFER) = TO-ROWID(c) NO-LOCK NO-ERROR.
IF AVAILABLE mBUFFER THEN
MESSAGE mBUFFER.proref
VIEW-AS ALERT-BOX INFO BUTTONS OK.
FIND "_File._File-Name" where RECID("_File._File-Name") = 321547 no-lock no-error
I'm no longer clear on your business requirement. I thought you were trying to track down the source of record contention.I just wanna check if it's possible to have data that corrupt procedure.
well so ok.
Maybe by the transaction ?