例題
[C5540A.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5540A. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5540. 000008 PROCEDURE DIVISION. 000009 END METHOD M5540. 000010 END OBJECT. 000011 END CLASS C5540A.
[C5540.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5540 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5540A 000007 CLASS FJBASE. 000008 IDENTIFICATION DIVISION. 000009 OBJECT. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 PROCEDURE DIVISION. 000013 IDENTIFICATION DIVISION. 000014 METHOD-ID. M5540. 000015 DATA DIVISION. 000016 WORKING-STORAGE SECTION. 000017 01 OBJ OBJECT REFERENCE. 000018 PROCEDURE DIVISION. 000019 SET OBJ TO SUPER AS C5540A. 000020 END METHOD M5540. 000021 END OBJECT. 000022 END CLASS C5540.
C5540.cob 19: JMN5540I-S 定義済みオブジェクト一意名SUPERまたはNULLにオブジェクト指定子を指定することはできません．
詳細な説明
オブジェクト指定子は，ASの前に指定した一意名の型を，ASの後に指定した型に読み替える指定です．
定義済みオブジェクト一意名SUPERおよびNULLは，別の型で読み替えることはできません．
