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

2.5.225 JMN5773I-S

PERFORM文のVARYING-THRU指定のTHRUの前に不適切な語@1@があります.

引数の説明

@1@:

エラーの原因となった語.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P5773.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS INTARY AS "System.Int32[]".
      000007 DATA           DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 WARY        OBJECT REFERENCE INTARY.
      000010 01 WINT1       PIC S9(9) COMP-5.
      000011 01 WINT2       PIC S9(9) COMP-5.
      000012 PROCEDURE      DIVISION.
      000013     PERFORM VARYING WINT1 WINT2 THRU WARY
      000014       DISPLAY WINT1
      000015     END-PERFORM
      000016 END PROGRAM    P5773.
    

P5773.cob (13) : JMN5773I-S PERFORM文のVARYING-THRU指定のTHRUの前に不適切な語WINT2があります.

詳細な説明

VARYING-THRU指定のPERFORM文では,VARYING指定に指定できるデータ名は1つだけです.

複数のデータ名が指定されていたり,不適切な語がある場合にこの診断メッセージは出力されます.