例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3043.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 9(2).
000007 01 B PIC XX.
000008 01 X PIC 9(2).
000009 PROCEDURE DIVISION.
000010 EVALUATE X
000011 WHEN A THROUGH B
000012 MOVE 1 TO A.
000013 STOP RUN.
C3043.cob (11) : JMN3043I-S EVALUATE文のTHROUGH指定でつながる二つの作用対象は，同じ字類でなければなりません．