If you are using automatic record locking, the READ statement acquires a record lock automatically. To avoid locking a record, use the WITH NO LOCK clause in the READ statement.
To specify automatic locking, use the LOCK MODE IS AUTOMATIC clause in the SELECT clause for the file:
 select fd-name
     assign to "muser.dat"
     lock mode is automatic
   ...
     read fd-name