例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. SP7600.
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 X(20).
000009 01 SQLSTATE PIC X(5).
000010 01 SQLMSG PIC X(128).
000011 01 VAR-IND PIC S9(4) COMP-5.
000012 EXEC SQL END DECLARE SECTION END-EXEC.
000013 PROCEDURE DIVISION.
000014 EXEC SQL
000015 CREATE TABLE STOCK (PRDCT-NO INTEGER, PRDCT-NM CHAR(20))
000016 END-EXEC
000017 EXEC SQL
000018 ALLOCATE DESCRIPTOR SQLDA1 WITH MAX 25
000019 END-EXEC
000020 .
SP7600.cob (15) : JMN2633I-S SQL文に誤りがあります．ODBC-7600E 実行不可能なSQL文です．
SP7600.cob (18) : JMN2633I-S SQL文に誤りがあります．ODBC-7600E 実行不可能なSQL文です．
詳細な説明
このコンパイラでは扱えないSQL文が記述されました．