例題
[C5545.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5545. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5545. 000008 PROCEDURE DIVISION. 000009 DECLARATIVES. 000010 DEAD-LOCK-ERR SECTION. 000011 USE FOR DEAD-LOCK 000012 DISPLAY "********** 結果 NG **********" . 000013 END DECLARATIVES. 000014 END METHOD M5545. 000015 END OBJECT. 000016 END CLASS C5545.
C5545.cob 11: JMN5545I-S USE FOR DEAD-LOCK文は，プログラム定義だけに記述できます．
