例題
[C5556.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5556. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5556A. 000008 ENVIRONMENT DIVISION. 000009 DATA DIVISION. 000010 LINKAGE SECTION. 000011 01 LK1 OBJECT REFERENCE C5556. 000012 PROCEDURE DIVISION RETURNING LK1. 000013 END METHOD M5556A. 000014 IDENTIFICATION DIVISION. 000015 METHOD-ID. M5556B. 000016 ENVIRONMENT DIVISION. 000017 DATA DIVISION. 000018 LINKAGE SECTION. 000019 01 LK1 PIC X(10). 000020 PROCEDURE DIVISION RETURNING LK1. 000021 END METHOD M5556B. 000022 END OBJECT. 000023 END CLASS C5556.
[P5556.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5556. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5556. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WOBR OBJECT REFERENCE C5556. 000010 PROCEDURE DIVISION. 000011* 000012 INVOKE WOBR::"M5556A" "M5556B". 000013* 000014 INVOKE WOBR::"M5556B" "M5556A". 000015 END PROGRAM P5556.
P5556.cob 14: JMN5556I-S INVOKE文の直後の一意名のメソッドの結果はオブジェクト一意名でなければなりません．INVOKE文を無効とします．
詳細な説明
INVOKE文の直後の一意名が，メソッドの行内呼出し，あるいはオブジェクトプロパティであり，かつ，その行内呼出しまたはオブジェクトプロパティの返却項目の属性がオブジェクトを識別するものではなかった場合に，この診断メッセージが出力されます．
