ALCOBJ　は、レコードをロックしますがロックに成功すれば
DLCOBJ　で解除してしまえばよいだけです。


　　　　　　　　　　　　　ALCOBJ　　　　　OBJ((QTRFIL/SHOHIN　*FILE　*SHRUPD))　WAIT(0)　
　　　　　　　　　　　　　MONMSG　　　　　MSGID(CPF1085)　EXEC(DO)　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　SNDPGMMSG　　MSG('　他で使用中です。　')　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　GOTO　　　　　　　LCKEND　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　ENDDO　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　DLCOBJ　　　　　OBJ((QTRFIL/SHOHIN　*FILE　*SHRUPD))　　　　　　　　　
　　　　　　　　　　　　　SNDPGMMSG　　MSG('　レコード・ロックはありません。　')　　　　
LCKEND:　　　

CHKRCDLCK　コマンド(パラメータなし)を使えばこの現在のジョブにレコード・ロックが
あるかどうか調べることができますが特定のファイルのレコード・ロックを調べることは
できません。

APi:　QDBRJBRL　は

　　　CALL　　　　　　　PGM(QDBRJBRL)　PARM(&RCVVAR　&RCVLEN　+
　　　　　　　　　　　　　　'RJBL0100'　&JOBINFO　&APIERR)　

のようにして　ジョブを　&JOBINFO　に指定してレコード・ロックを　&RCVVAR　に戻すことが
できますが、これも特定のファイルのレコード・ロックを調べる目的では使用できません。

やはり一般的には　ALCOBJ　で成功すればレコード・ロックはなかった、
失敗すればどこか他でレコード・ロックされていると判断するのが一番、簡単です。
どこでロックされているかは　WRKOBJLCK　で調べることになります。