埋め込みの説明
@1@ : SQL文
例題
[SP8430.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SP8430. 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 OCCURS 3. 000008 02 PRDCTNAM PIC N(10) OCCURS 3. 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 01 CNT PIC S9(4) COMP-5. 000014 PROCEDURE DIVISION. 000015 EXEC SQL 000016 DECLARE C1 CURSOR FOR 000017 SELECT PNO FROM STOCK WHERE PRDCTNAM = 'TIRE' 000018 END-EXEC 000019 EXEC SQL OPEN C1 END-EXEC 000020 EXEC SQL FOR 3 CALL PROC.FETCH1 END-EXEC 000021 EXEC SQL CLOSE C1 END-EXEC 000022 .
SP8430.cob 20: JMN2633I-S SQL文に誤りがあります.ODBC-8430E “CALL”文にFOR句の指定はできません.
詳細な説明
該当する行のSQL文はFOR句を指定することはできません.FOR句は,複数行指定ホスト変数または表指定ホスト変数を指定した以下のSQL文にだけ記述できます.
SELECT文
INSERT文
FETCH文
UPDATE文(探索)
DELETE文(探索)
EXECUTE文