例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2106.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1 PIC X.
000007 88 CD1 VALUE "A" THRU "Z".
000008 88 CD2 VALUE "z" THRU "a".
000009 PROCEDURE DIVISION.
000010 END PROGRAM P2106.
P2106.cob (8) : JMN2106I-S 条件名のVALUE句のTHROUGHの後の値は，THROUGHの前の値より大きくなければなりません．
詳細な説明
条件名記述項(レベル番号が88)のVALUE句のTHRU(THROUGHとTHRUは同義語です)は，条件名の値の範囲を示します．「”THRUの前に記述した値”以上，かつ，”THRUの後ろに記述した値”以下」を値の範囲とみなすので，THRUの後ろに記述する値は，THRUの前に記述する値よりも大きくなければなりません．