NetCOBOL V11.0 メッセージ集

2.6.137 JMN5578I-S

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

埋め込みの説明

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

例題

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

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