Click above to get retro games delivered to your door ever month!

Syntax

LOCKREL( nMode[, aTables[, lBool ]] )

Purpose

(multi-user only) Lock the current record, child tables, or
parent records.

Arguments

     nMode -- 0 = lock current record;
                  1 = lock child tables;
                  2 = lock parent records

     aTables -- array of child/parent tables; generates them if not
                    passed

     lBool -- if passed and .T., lock the current record; default .F.

Setup

The dictionary must be open if aTables is not passed.

Example

GET_STD2() locks the current record and child tables with child records
during a key edit, and the parent record for the REPLACE.

     LOCKREL( 1, .F., .T. )
     * GET routine here
     LOCKREL( 2 )
     * REPLACE routine here
     UNLOCKREL( 2 )

@COMPUTER TEXT = UNLOCKREL( 1 )

@SECTION =

Returns

.T. if locks were successfully established, else .F.

Side Effects

Locks are placed on the specified records/tables.

Artful Calls

LOCKREC, LOCKFILE, CHILDREN, PARENTS

Source File

AM_LOCKS.PRG