# Directives

UNLOCK | 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 statement label to which to transfer control.

## Description

Use the UNLOCK directive to release a previously locked file. If the given file is not already locked, PxPlus returns an Error #14: Invalid I/O request for file state.

## See Also

LOCK Reserve File for Exclusive Use

## Example

0010 open (30,err=0100)"GLFILE"
0020 lock (30,err=0120)
0030 read (30,key="HEPxPlusR")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