ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.4.233 JMN3413I-S

オブジェクト参照一意名の比較で指定する比較演算子は,'EQUAL(=)'または'NOT EQUAL(NOT =)'でなければなりません.

      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 =)'でなければなりません.