例
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関数の引数の値が,大小順序に含まれる文字列の数を超えています.