例題
[P2682.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2682. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 D1 PIC X(1). 000007 PROCEDURE DIVISION. 000008 IF D1 >= "A" AND 000009 <= ("Z" OR "z") THEN 000010 DISPLAY "OK" 000011 ELSE 000012 DISPLAY "OK" 000013 END-IF 000014 END PROGRAM P2682.
P2682.cob 8: JMN2682I-W 略記組合せ比較条件中に括弧は指定できません.括弧は,有効とみなします.