例題
[C3075.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3075. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B PIC 1111. 000008 01 C PIC XXXX. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A B = ZERO. 000012 STOP RUN.
C3075.cob 11: JMN3075I-S COMPUTE文の受取り側はすべて数字項目若しくは数字編集項目か，またはすべてブール項目のいずれかでなければなりません．
