2.5.154 JMN5578I-S

SEARCH文の一意名に@1@は指定できません．
AT ENDまたはWHEN指定が現れるまで無効となります．

引数の説明

@1@:

メソッドの行内呼び出し，オブジェクト指定子付きの一意名．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P5578.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS SYSOBJ AS "System.Object"
      000007     CLASS SYSSTR AS "System.String".
      000008 DATA           DIVISION.
      000009 WORKING-STORAGE SECTION.
      000010 01 WOBR        OBJECT REFERENCE SYSOBJ.
      000011 PROCEDURE      DIVISION.
      000012     SEARCH WOBR AS SYSSTR
      000013        WHEN WOBR = NULL
      000014          DISPLAY "END"
      000015     END-SEARCH.
      000016 END PROGRAM    P5578.

P5578.cob (12) : JMN5578I-S SEARCH文の一意名にオブジェクト指定子付きの一意名は指定できません．AT ENDまたはWHEN指定が現れるまで無効となります．