例題
[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 略記組合せ比較条件中に括弧は指定できません.括弧は,有効とみなします.