埋め込みの説明
@1@ : USE FOR DEAD-LOCK．
例題
[P2608.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2608. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 PROCEDURE DIVISION. 000007 CALL "P2608SUB" 000008 STOP RUN. 000009* 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. P2608SUB. 000012 PROCEDURE DIVISION. 000013 DECLARATIVES. 000014 ERROR-1 SECTION. 000015 USE FOR DEAD-LOCK. 000016 EXIT PROGRAM. 000017 END DECLARATIVES. 000018 END PROGRAM P2608SUB. 000019 END PROGRAM P2608.
P2608.cob 15: JMN2608I-S USE FOR DEAD-LOCK文は，最も外側のプログラムにただ一つだけしか指定できません．
詳細な説明
USE FOR DEAD-LOCK文では，デッドロックが生じたときに実行すべき手続きを指定します．指定された手続きは，トランザクションコントロールシステムによって実行されます．
