NetCOBOL V11.0 メッセージ集

2.6.94 JMN5532I-S

複数のクラスを継承をしたクラスでは，定義済みオブジェクト一意名SUPERにクラス名指定が必要です． 型付けされていないオブジェクト参照データ項目'UNTYPED-OBJECT'が指定されたとみなします．

例題

[C5532A.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.      C5532A.
000003 IDENTIFICATION DIVISION.
000004 OBJECT.
000005 PROCEDURE      DIVISION.
000006 IDENTIFICATION DIVISION.
000007 METHOD-ID.     M5532.
000008 ENVIRONMENT    DIVISION.
000009 DATA           DIVISION.
000010 LINKAGE         SECTION.
000011 PROCEDURE      DIVISION.
000012 END METHOD     M5532.
000013 END OBJECT.
000014 END CLASS      C5532A.

[C5532B.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.      C5532B.
000003 IDENTIFICATION DIVISION.
000004 OBJECT.
000005 PROCEDURE      DIVISION.
000006 IDENTIFICATION DIVISION.
000007 METHOD-ID.     M5532.
000008 ENVIRONMENT    DIVISION.
000009 DATA           DIVISION.
000010 LINKAGE         SECTION.
000011 PROCEDURE      DIVISION.
000012 END METHOD     M5532.
000013 END OBJECT.
000014 END CLASS      C5532B.

[C5532.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.      C5532 INHERITS C5532A C5532B.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006     CLASS C5532A
000007     CLASS C5532B.
000008 IDENTIFICATION DIVISION.
000009 OBJECT.
000010 PROCEDURE      DIVISION.
000011 IDENTIFICATION DIVISION.
000012 METHOD-ID.     M5532 OVERRIDE.
000013 ENVIRONMENT    DIVISION.
000014 DATA           DIVISION.
000015 LINKAGE         SECTION.
000016 PROCEDURE      DIVISION.
000017     INVOKE SUPER "M5532"
000018 END METHOD     M5532.
000019 END OBJECT.
000020 END CLASS      C5532.

C5532.cob 17: JMN5532I-S 複数のクラスを継承をしたクラスでは，定義済みオブジェクト一意名SUPERにクラス名指定が必要です．型付けされていないオブジェクト参照データ項目'UNTYPED-OBJECT'が指定されたとみなします．

詳細な説明

CLASS-ID段落のINHERITS句に2つ以上のクラス名を指定して定義したクラスの中では，定義済みオブジェクト一意名SUPERによって親クラスを表現する場合は，「クラス名 OF SUPER」という書き方によって，どの親クラスを指すかを明に示さなければなりません．