2.4.262 JMN3489I-S

EXIT PROGRAM文またはEXIT METHOD文のRAISING指定，またはRAISE文に指定された@1@は，@2@または@2@のサブクラスを参照するオブジェクト参照一意名でなければなりません．

引数の説明

@1@:

一意名

@2@:

System.Exception

例

      000001 IDENTIFICATION  DIVISION.
      000002  PROGRAM-ID. C3489.
      000003 ENVIRONMENT DIVISION.
      000004 CONFIGURATION SECTION.
      000005   REPOSITORY.
      000006     CLASS  CLSA AS "Class-A".
      000007 DATA DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009  01  OBJA   OBJECT REFERENCE CLSA.
      000010 PROCEDURE DIVISION RAISING CLSA.
      000011     INVOKE CLSA "NEW" RETURNING OBJA.
      000012     EXIT PROGRAM RAISING OBJA.
      000013 END PROGRAM C3489.

      000001 CLASS-ID. CLSA AS "Class-A".
      000002 ENVIRONMENT DIVISION.
      000003 CONFIGURATION SECTION.
      000004 OBJECT.
      000005 PROCEDURE DIVISION.
      000006*
      000007 END OBJECT.
      000008 END CLASS CLSA.

C3489.cob (12) : JMN3489I-S EXIT PROGRAM文またはEXIT METHOD文のRAISING指定，またはRAISE文に指定された'OBJA'は，System.ExceptionまたはSystem.Exceptionのサブクラスを参照するオブジェクト参照一意名でなければなりません．