ed672c29c9
* include/hbpers.ch
* source/rtl/perfuncs.prg
* source/rtl/objfunc.prg
* source/rtl/tlabel.prg
* source/rtl/setta.prg
* source/rtl/dirscan.prg
* source/rtl/tthreadx.prg
* source/rtl/setfunc.prg
* source/rtl/readvar.prg
* source/rtl/tclass.prg
* source/rtl/ttextlin.prg
* source/rtl/profiler.prg
* source/rtl/treport.prg
* source/rtl/tgetint.prg
* source/rtl/persist.prg
* source/rtl/altd.prg
* source/rtl/devoutp.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
* source/rdd/usrrdd/rdds/dbtcdx.prg
* source/rdd/usrrdd/rdds/fptcdx.prg
* source/rdd/usrrdd/rdds/arrayrdd.prg
* source/rdd/usrrdd/rdds/hscdx.prg
* source/rdd/usrrdd/rdds/rlcdx.prg
* source/rdd/usrrdd/rdds/fcomma.prg
* source/rdd/usrrdd/rdds/smtcdx.prg
* Formatting. Basically finished.
* include/hbextern.ch
! Added two missing functions.
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
|