例題
[C5548.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5548 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M5548 PROTOTYPE. 000012 DATA DIVISION. 000013 PROCEDURE DIVISION 000014 RAISING FJBASE. 000015 END METHOD M5548. 000016 END OBJECT. 000017 END CLASS C5548.
[M5548.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M5548 OF C5548. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5548. 000007 DATA DIVISION. 000008 PROCEDURE DIVISION 000009 RAISING C5548. 000010 END METHOD M5548.
M5548.cob 2: JMN5548I-S 手続き部見出しのRAISING指定のクラス名は,メソッド原型定義時の指定と同じでなければなりません.指定されたとおりに受け入れます.
詳細な説明
分離されたメソッド定義の手続き部見出しのRAISING指定に指定するクラス名は,このメソッド定義に対応するメソッド原型定義(METHOD-ID段落にPROTOTYPE指定を指定した定義)の手続き部見出しのRAISING指定に指定されたクラス名と同じでなければなりません.