c0dc8c254d
* src/rtl/tget.prg
! fixed regression from 2012-01-29 17:22 UTC+0100
when non-numeric index was allowed on a non-hash
variable and then an RTE generated.
Caused rto_get.prg to RTE in the middle.
* contrib/gtwvg/activex.prg
* contrib/gtwvg/class.prg
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/tests/utils.prg
* contrib/rddads/doc/en/adsfuncs.txt
* contrib/rddads/doc/en/readme.txt
* contrib/xhb/tfile.prg
* contrib/xhb/txml.prg
* contrib/xhb/xhbole.prg
* doc/windll.txt
* extras/gtwvw/gtwvw.c
* extras/gtwvw/hbgtwvw.h
* extras/gtwvw/tests/maincoor.prg
* extras/gtwvw/wvwcheck.c
* extras/gtwvw/wvwdraw.c
* extras/gtwvw/wvwedit.c
* extras/gtwvw/wvwfuncs.c
* extras/gtwvw/wvwmenu.c
* extras/gtwvw/wvwpush.c
* extras/gtwvw/wvwstbar.c
* extras/gtwvw/wvwtbar.c
* extras/hbdoc/tmplates.prg
* tests/gtcolors.prg
* tests/ipclnt.prg
* tests/ipsvr.prg
* tests/rto_get.prg
* tests/rto_tb.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exfcm.prg
* tests/usrrdd/exhsx.prg
* tests/usrrdd/exlog.prg
* tests/usrrdd/exmemo.prg
* tests/usrrdd/exrlx.prg
* tests/wcecon.prg
* full formatting using hbformat (where needed)
* Win32 -> Windows
* 32-bit deleted where it didn't make sense
* using K_* constants
! fixed != operators where used on strings (more to come)
Thanks to Jose F. Gimenez for the ones in txml.prg.
* avoid "common.ch"
% use hb_ntos() in Harbour specific code
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
|