LOCKTYPE

Syntax:

>>-.---.--LOCKTYPE--"integer"--------------><
   +-/-+

Parameters:

integer
The type of locking.
0 Programs can read locked records, but not access them in other ways. This is the standard method with this COBOL system.
1 Programs cannot access locked records at all. This is as in languages other than COBOL.
2 Creates a new file with the same basename as the file being opened but with a .lck extension. Any record locks are recorded in this file. This enables the File Handler to read and write to files up to 4 gigabytes in size regardless of whether the file is shared or locked. You cannot set this value for striped files.

Properties:

Default: LOCKTYPE"0"
Phase: Syntax check
$SET: Initial

Comments:

This directive only has an effect if the CALLFH directive is used.