例題
[C3048.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3048. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(2). 000007 01 B PIC 1(2). 000008 01 X PIC 1(2). 000009 PROCEDURE DIVISION. 000010 EVALUATE X 000011 WHEN A THROUGH B 000012 MOVE B"01" TO A. 000013 STOP RUN.
C3048.cob 11: JMN3048I-S EVALUATE文中のTHROUGH指定でつながる二つの作用対象は，ブールまたはオブジェクト一意名であってはなりません．
