引数の説明
エラーの原因となったフィールド名. |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5722PA. 000003* 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 F1 PIC S9(9) COMP-5 PUBLIC. 000009 PROCEDURE DIVISION. 000010 END OBJECT. 000011 END CLASS C5722PA.
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5722 INHERITS C5722PA. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5722PA. 000007* 000008 IDENTIFICATION DIVISION. 000009 OBJECT. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 F1 BINARY-LONG. 000013 PROCEDURE DIVISION. 000014* 000015 IDENTIFICATION DIVISION. 000016 METHOD-ID. M5722. 000017 DATA DIVISION. 000018 WORKING-STORAGE SECTION. 000019 01 WOBRDT OBJECT REFERENCE C5722PA. 000020 PROCEDURE DIVISION. 000021 DISPLAY F1 OF SUPER 000022 SET WOBRDT TO SELF 000023 DISPLAY F1 OF WOBRDT 000024 END METHOD M5722. 000025 END OBJECT. 000026 END CLASS C5722.
C5722.cob (21) : JMN5722I-S 定義済みオブジェクト一意名SUPERはフィールドF1を参照するために使うことはできません.
詳細な説明
定義済みオブジェクト一意名SUPERをフィールド参照に使用することはできません.SUPER(親クラス)に該当する型の名前か,あるいはSUPERに該当する型のオブジェクト参照を使用してください.