[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Using -rereadnolock with ROWIDs

[George Potemkin]

Try: DEFINE VARIABLE vDbAccess LIKE _UserIO._UserIO-DbAccess NO-UNDO EXTENT 2. FUNCTION MyDbAccess RETURNS INT64: FOR FIRST DICTDB._MyConnection NO-LOCK, FIRST DICTDB._UserIO NO-LOCK WHERE DICTDB._UserIO._UserIO-Id EQ DICTDB._MyConnection._MyConn-UserId + 1: RETURN DICTDB._UserIO._UserIO-DbAccess. END. END FUNCTION. PROCEDURE doIt: DEFINE INPUT PARAMETER prCust AS ROWID NO-UNDO. DEFINE BUFFER bCust FOR customer. ASSIGN vDbAccess[1] = MyDbAccess(). FIND bCust NO-LOCK WHERE ROWID(bCust) = prCust. ASSIGN vDbAccess[2] = MyDbAccess(). MESSAGE "FIND BY ROWID:" vDbAccess[1] NE vDbAccess[2] VIEW-AS ALERT-BOX. ASSIGN vDbAccess[1] = MyDbAccess(). FIND CURRENT bCust NO-LOCK. ASSIGN vDbAccess[2] = MyDbAccess(). MESSAGE "FIND CURRENT bCust:" vDbAccess[1] NE vDbAccess[2] VIEW-AS ALERT-BOX. END PROCEDURE. ASSIGN vDbAccess[1] = MyDbAccess(). FIND FIRST customer NO-LOCK. ASSIGN vDbAccess[2] = MyDbAccess(). MESSAGE "FIND FIRST customer:" vDbAccess[1] NE vDbAccess[2] VIEW-AS ALERT-BOX. RUN doIt(ROWID(customer)).

Continue reading...