96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
REQUEST RLCDX
|
|
|
|
PROCEDURE Main()
|
|
|
|
dbCreate( "_tst", { { "F1", "C", 10, 0 } }, "RLCDX" )
|
|
USE _tst VIA "RLCDX" SHARED
|
|
? "Table: ", Alias(), " open VIA: ", rddName()
|
|
? "APPEND"
|
|
dbAppend()
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "APPEND"
|
|
dbAppend()
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "UNLOCK"
|
|
dbUnlock()
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
|
|
? "Locking record 1", dbRLock( 1 )
|
|
? "Locking record 1", dbRLock( 1 )
|
|
? "Locking record 1", dbRLock( 1 )
|
|
? "Locking record 2", dbRLock( 2 )
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "UnLocking record 1..."
|
|
dbRUnlock( 1 )
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "UnLocking record 2..."
|
|
dbRUnlock( 2 )
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "UnLocking record 1..."
|
|
dbRUnlock( 1 )
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
? "UnLocking record 1..."
|
|
dbRUnlock( 1 )
|
|
? "Current record locks:"
|
|
AEval( dbRLockList(), {| nRecNo | QQOut( nRecNo ) } )
|
|
|
|
CLOSE
|
|
|
|
RETURN
|