306fdd0446
* package/*
* src/compiler/harbour.y
* src/compiler/harbour.yyc
* src/macro/macro.y
* src/macro/macro.yyc
* src/pp/hbpp.1
* tests/*/*
* utils/*
* stripped svn header manually
* tests/hbdocext.hb
* tests/lang2po.hb
* tests/big5_gen.prg
* tests/uc16_gen.prg
* do not add svn ids to generated sources
+ tests/stripsvn.hb
+ added script to strip svn header from sources
48 lines
1.3 KiB
Plaintext
48 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
|