例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5771.
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 WINT PIC S9(9) COMP-5.
000011 PROCEDURE DIVISION.
000012 PERFORM VARYING 12 THRU WARY
000013 DISPLAY WINT
000014 END-PERFORM
000015 END PROGRAM P5771.
P5771.cob (12) : JMN5771I-S PERFORM文のVARYING-THRU指定ではVARYINGに続けてデータ名を指定しなければなりません．
詳細な説明
VARYING-THRU指定のPERFORM文では，VARYING指定にはデータ名を指定します．このデータ名はTHRU指定の一意名が参照するコレクションから取り出した要素を格納するために使用されます.
この診断メッセージはVARYING指定にデータ名の代わりに次のものが指定された場合に出力されます.
定数
関数
データ名以外の利用者語
オブジェクト参照一意名