例題
[C3375.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3375. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC X(1). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 MOVE FUNCTION CHAR(+300) TO RCV. 000010 END PROGRAM C3375.
C3375.cob 9: JMN3375I-S CHAR関数の引数の値が，大小順序に含まれる文字列の数を超えています．
