例
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.
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5540.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS C5540A
000007 CLASS CLASS-OBJECT AS "System.Object".
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 CLASS-OBJECT.
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は，別の型で読み替えることはできません．