例題
[C3043.cob] 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指定でつながる二つの作用対象は，同じ字類でなければなりません．
