Examples of LOCK File Statements

In the following example, if FILEA is a disk file it is retained as a permanent file.

LOCK(FILEA)

In the following example, the unused portion of the last row of disk file FYLE is returned to the system.

LOCK(FYLE,CRUNCH)

In the following example, the unused portion of the last row of disk file FYLE is returned to the system.

LOCK(FYLE,*)