例題
[C3070.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3070. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC XXXX. 000008 01 C PIC 9(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B ON SIZE ERROR STOP RUN 000012 NOT ON SIZE ERROR MOVE B TO C. 000013 STOP RUN.
C3070.cob 11: JMN3070I-S [NOT] ON SIZE ERROR指定付きのCOMPUTE文の右辺は，算術式でなければなりません．
