例題
[C5541.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5541. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M5541. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 WOBR OBJECT REFERENCE FJBASE. 000015 01 WCLS PIC X(6) VALUE "FJBASE". 000016 PROCEDURE DIVISION. 000017 SET WOBR TO SELF AS WCLS 000018 END METHOD M5541. 000019 END OBJECT. 000020 END CLASS C5541.
C5541.cob 17: JMN5541I-S オブジェクト指定子にはクラス名またはUNIVERSALが指定されなければなりません．UNIVERSALが指定されたものとみなします．
C5541.cob 17: JMN2500I-S 文が現れなければいけない所に，語'WCLS'が現れました．次の文または手続き名まで読み飛ばします．
C5541.cob 17: JMN3412I-S オブジェクト指定子付きの一意名は'WOBR'に適合していなければなりません．
詳細な説明
オブジェクト指定子のASの後には，クラス名またはUNIVERSALを指定します．
