例題
[C3413.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3413. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007* 000008 METHOD-ID. FM1. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJA USAGE IS OBJECT REFERENCE C3413. 000012 PROCEDURE DIVISION. 000013 IF OBJA > NULL THEN 000014 EXIT METHOD. 000015 END METHOD FM1. 000016* 000017 END OBJECT. 000018 END CLASS C3413.
C3413.cob 13: JMN3413I-S オブジェクト参照一意名の比較で指定する比較演算子は，'EQUAL(=)'または'NOT EQUAL(NOT =)'でなければなりません．
