2.5.132 JMN5535I-S

@2@は@1@文には記述できません．
@1@文は無効になります．

引数の説明

@1@:

SEARCH．

@2@:

定義済みオブジェクト一意名SELF，定義済みオブジェクト一意名SUPER，定義済みオブジェクト一意名EXCEPTION-OBJECT，クラス名，メソッドの行内呼出し，オブジェクト指定子付きの一意名または定義済みオブジェクト一意名NULL．

例

      000001 IDENTIFICATION DIVISION.
      000002 CLASS-ID.      C5535.
      000003 ENVIRONMENT    DIVISION.
      000004 IDENTIFICATION DIVISION.
      000005 OBJECT.
      000006 DATA           DIVISION.
      000007 WORKING-STORAGE SECTION.
      000008 PROCEDURE      DIVISION.
      000009 IDENTIFICATION DIVISION.
      000010 METHOD-ID.     M5535.
      000011 ENVIRONMENT    DIVISION.
      000012 DATA           DIVISION.
      000013 WORKING-STORAGE SECTION.
      000014 01 WGRP.
      000015   02 WOCC      OCCURS 10 INDEXED BY IX1.
      000016     03         PIC X.
      000017 PROCEDURE      DIVISION.
      000018     SEARCH SELF VARYING IX1
      000019     WHEN WOCC(IX1) = "X"
      000020       DISPLAY "FIND"
      000021     END-SEARCH
      000022 END METHOD     M5535.
      000023 END OBJECT.
      000024 END CLASS      C5535.

C5535.cob (18) : JMN5535I-S 定義済みオブジェクト一意名SELFはSEARCH文には記述できません．SEARCH文は無効になります．