Examples of Manual Record Locking

To manually lock a single record:

 select fd-name
     assign to "muser.dat"
     lock mode is manual.
  ...
     read fd-name with lock

To manually lock multiple records:

 select fd-name
     assign to "muser.dat"
     lock mode is manual with lock on multiple records.
  ...
     read fd-name with kept lock