引数の説明
一意名 |
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のサブクラスを参照するオブジェクト参照一意名でなければなりません.