====== Record Lock ======
In RLA you can test if the last IO operation ended with you waiting for a locked record exceeding the wait timeout:

    if %Status(YourFile) =  1218;  //Status 1218 = Record Lock
      // record locked
    endif;

{{tag>ibm rpg}}