2.5.116 JMN5507I-S

@1@文のRAISING指定にはオブジェクト参照一意名だけが記述できます．

引数の説明

@1@:

EXIT．

例

      000001 IDENTIFICATION DIVISION.
      000002 CLASS-ID.      C5507.
      000003 IDENTIFICATION DIVISION.
      000004 OBJECT.
      000005 PROCEDURE      DIVISION.
      000006 IDENTIFICATION DIVISION.
      000007 METHOD-ID.     M5507.
      000008 DATA           DIVISION.
      000009 WORKING-STORAGE SECTION.
      000010 01 WERROR      PIC X(20).
      000011 PROCEDURE      DIVISION.
      000012     EXIT METHOD RAISING WERROR
      000013 END METHOD     M5507.
      000014 END OBJECT.
      000015 END CLASS      C5507.

C5507.cob (12) : JMN5507I-S EXIT文のRAISING指定にはオブジェクト参照一意名だけが記述できます．