routine file_lock_stat (
lock_file: file_t;
RPT
out mystatus: int;
out otherstatus: int);
Return current lock status. mystatus tells what kind of lock the caller has;
otherstatus tells what kind of lock anyone has (including the caller).