The UNLOCK statement frees a record in an indexed, relative, or sequential file that was locked on a specified logical unit by a previous READ. It performs no other I/O operation. The UNLOCK statement takes one of the following forms:
UNLOCK ([UNIT=]u [,ERR=s] [,IOSTAT=ios]) UNLOCK u
If no record is locked, the operation has no effect.