例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. SP8005.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000006 01 STOCK-TABLE.
000007 02 PRDCTNUM PIC S9(4) COMP-5.
000008 02 PRDCTNAM PIC N(10).
000009 01 SQLSTATE PIC X(5).
000010 01 SQLMSG PIC X(128).
000011 01 VAR-IND1 PIC S9(4) COMP-5.
000012 EXEC SQL END DECLARE SECTION END-EXEC.
000013 PROCEDURE DIVISION.
000014 EXEC SQL
000015 SELECT PRDCT-NO FROM STOCK WHERE PRDCT-NM = N'富士通 '
000016 END-EXEC
000017 .
SP8005.cob (15) : JMN2633I-S SQL文に誤りがあります．ODBC-8005E 各国語文字列定数の形式に誤りがあります．
詳細な説明
各国語文字列定数の記述に誤りがあります．詳細については，“COBOL 文法書”の“8.3.2.3 各国語文字列定数”を参照してください．