埋め込みの説明
@1@ : 定数を指定したSTOP文,REVERSE指定のOPEN文または手続名のないGO TO文.
例題
[C5581.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5581. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 IDENTIFICATION DIVISION. 000008 METHOD-ID. M5581. 000009 ENVIRONMENT DIVISION. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 PROCEDURE DIVISION. 000013 DISPLAY "TEST START". 000014 STOP "Restart Now !". 000015 DISPLAY "TEST END". 000016 END METHOD M5581. 000017 END OBJECT. 000018 END CLASS C5581.
C5581.cob 14: JMN5581I-S 定数を指定したSTOP文はプログラム定義だけで使用できます.定数を指定したSTOP文は無効とします.