c829c49c07
* examples/hbextern/hbextern.prg
* Excluding all HB_ARCHITECTURE dirs explicitly.
(this resolves the recursion problem)
* Excluding fcomma.prg explicitly.
- Deleted 'example' from exclusion list.
- source/rdd/usrrdd/example
+ tests/usrrdd
* Moved examples under test dir.
51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
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
|