埋め込みの説明
@1@ : エラーの原因となったクラス名.
例題
[C5536A.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5536A. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008 END OBJECT. 000009 END CLASS C5536A.
[C5536B.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5536B. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008 END OBJECT. 000009 END CLASS C5536B.
[C5536.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5536 INHERITS FJBASE C5536A. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5536A 000007 CLASS C5536B 000008 CLASS FJBASE. 000009 IDENTIFICATION DIVISION. 000010 OBJECT. 000011 PROCEDURE DIVISION. 000012 IDENTIFICATION DIVISION. 000013 METHOD-ID. M5536. 000014 ENVIRONMENT DIVISION. 000015 DATA DIVISION. 000016 LINKAGE SECTION. 000017 PROCEDURE DIVISION. 000018 INVOKE C5536B OF SUPER "M5536" 000019 END METHOD M5536. 000020 END OBJECT. 000021 END CLASS C5536.
C5536.cob 18: JMN5536I-S 定義済みオブジェクト一意名SUPERに指定したクラス名'C5536B'は,クラス定義のINHERITS句に指定されたものでなければなりません.型付けされていないオブジェクトデータ項目'UNTYPED-OBJECT'が指定されたとみなします.