例題
[C5571.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5571. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS COM AS "*COM". 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M5571. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 WOBR1 OBJECT REFERENCE. 000015 01 WOBR2 OBJECT REFERENCE COM. 000016 PROCEDURE DIVISION. 000017 SET WOBR2 TO WOBR1 AS COM. 000018 END METHOD M5571. 000019 END OBJECT. 000020 END CLASS C5571.
C5571.cob 17: JMN5571I-S オブジェクト指定子に指定するクラス名は特殊クラスのクラス名であってはなりません．UNIVERSALが指定されたものと見なします．
C5571.cob 17: JMN3412I-S オブジェクト指定子付きの一意名は'WOBR2'に適合していなければなりません．
詳細な説明
オブジェクト指定子のASの後には，アーリバインド特殊クラスのクラス名を除き，特殊クラスのクラス名は指定できません．
