例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5776.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS SYSCHR AS "System.Char"
000007 CLASS STRBLDR AS "System.Text.StringBuilder"
000008 CLASS SYSCON AS "System.Console"
000009 .
000010 DATA DIVISION.
000011 WORKING-STORAGE SECTION.
000012 01 WSTR OBJECT REFERENCE STRBLDR.
000013 01 WCHR OBJECT REFERENCE SYSCHR.
000014 PROCEDURE DIVISION.
000015 PERFORM VARYING WCHR THRU WSTR
000016 INVOKE SYSCON "WriteLine" USING BY VALUE WCHR
000017 END-PERFORM
000018 END PROGRAM P5776.
P5776.cob (15) : JMN5776I-S PERFORM文のVARYING-THRU指定のTHRUに指定したオブジェクト参照一意名の参照する型は，GetEnumeratorメソッドを持つものでなければなりません．
詳細な説明
THRUに指定した一意名の参照する型がGetEnumeratorメソッドを持たない場合に，この診断メッセージが出力されます．
また，見つかったGetEnumeratorメソッドが次の条件を満たさない場合も，この診断メッセージが出力されます．
GetEnumeratorメソッドはアクセス可能である．
GetEnumeratorメソッドはオブジェクトメソッドまたはインタフェースメソッドである．
GetEnumeratorメソッドは型パラメタを持たない．
GetEnumeratorメソッドはメソッドパラメタを１つも持たない．
GetEnumeratorメソッドの戻り値を持つ．