ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.6.140 JMN5581I-S

@1@はプログラム定義だけで使用できます. @1@は無効とします.

埋め込みの説明

@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文は無効とします.