NetCOBOL V11.0 メッセージ集

2.6.146 JMN5591I-S

INVOKE文のメソッドを呼び出すオブジェクト参照が，メソッドの行内呼出しまたはオブジェクトプロパティの場合，このオブジェクト参照はリポジトリ段落に指定されたクラスを参照するものでなければなりません．

例題

[C5591.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.      C5591 INHERITS FJBASE.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006     CLASS FJBASE.
000007 IDENTIFICATION DIVISION.
000008 OBJECT.
000009 DATA           DIVISION.
000010 WORKING-STORAGE SECTION.
000011 01 P5591       OBJECT REFERENCE FACTORY OF FJBASE
000012                PROPERTY.
000013 PROCEDURE      DIVISION.
000014 IDENTIFICATION DIVISION.
000015 METHOD-ID.     M5591.
000016 ENVIRONMENT    DIVISION.
000017 DATA           DIVISION.
000018 LINKAGE         SECTION.
000019 01 LK1         OBJECT REFERENCE FACTORY OF FJBASE.
000020 PROCEDURE      DIVISION
000021                   RETURNING LK1.
000022 END METHOD     M5591.
000023 END OBJECT.
000024 END CLASS      C5591.

[P5591.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P5591.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006     CLASS C5591.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WOBR1       OBJECT REFERENCE C5591.
000010 01 WOBR2       OBJECT REFERENCE.
000011 PROCEDURE      DIVISION.
000012     INVOKE WOBR1 :: "M5591" "GETCLASS"
000013                RETURNING WOBR2.
000014 END PROGRAM    P5591.

P5591.cob 12: JMN5591I-S INVOKE文のメソッドを呼び出すオブジェクト参照が，メソッドの行内呼出しまたはオブジェクトプロパティの場合，このオブジェクト参照はリポジトリ段落に指定されたクラスを参照するものでなければなりません．