ProvideX V8.20 > Language Reference > 2. Directives

347

UNLOCK Directive

              Remove Exclusive Use from File

Format

UNLOCK (chan[,ERR=stmtref])

Where:

chan

Channel or logical file number of the file to be unlocked.

stmtref

Program line number or label to transfer control to.

Description

Use the UNLOCK directive to release a previously locked file. If the given file is not already

locked, ProvideX returns Error #14: Invalid I/O request for file state.

See Also

LOCK Reserve File for Exclusive Use, p.199.

Example

0010

OPEN (30,ERR=0100)"GLFILE"

0020

LOCK (30,ERR=0120)

0030

READ (30,KEY="HEProvideXR")A

0040

IF A>0 THEN GOTO 0100

0050

UNLOCK (30)

0060

PRINT "Nothing on file to process.."

0070

STOP

0100

REM 100 Error handling