例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3076.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 1111.
000007 01 B PIC 1111.
000008 01 C PIC 1111.
000009 PROCEDURE DIVISION.
000010 P-START.
000011 COMPUTE A ROUNDED = B AND C.
000012 STOP RUN.
C3076.cob (11) : JMN3076I-S ROUNDED指定は，ブール項目を含むCOMPUTE文に記述できません．