22835dc3a6
* tests/multifnc/t0.prg
* tests/multifnc/t1.prg
* tests/multifnc/t2.prg
* source/rdd/usrrdd/example/exmemo.prg
* source/rdd/usrrdd/example/exhsx.prg
* source/rdd/usrrdd/example/exfcm.prg
* source/rdd/usrrdd/example/exrlx.prg
* contrib/xhb/hbsyslog.c
* contrib/rddado/tests/mysql3.prg
* contrib/rddado/tests/access1.prg
* contrib/rddado/tests/access2.prg
* contrib/rddado/tests/mysql1.prg
* contrib/hbpgsql/tests/tstpgrdd.prg
! SVN headers.
* contrib/hbwhat32/Makefile
* contrib/hbwhat32/common.mak
- contrib/hbwhat32/wintypes.ch
- Removed wintypes.ch, as it collides with a header with
the same name (and similar content) in xhb. It will
now use the xhb one, since it already relied on other
xhb headers anyway.
If anyone wants to sort this out properly, pls do.
51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST RLCDX
|
|
|
|
PROC 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
|