例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. SP8433.
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 4 FETCH C1 INTO :PRDCTNUM END-EXEC
000021 EXEC SQL CLOSE C1 END-EXEC
000022 .
SP8433.cob (20) : JMN2633I-S SQL文に誤りがあります．ODBC-8433E FOR句に指定された値がOCCURS句で指定されている反復回数を超えています．
詳細な説明
FOR句の指定回数が指定したSQL文のホスト変数のOCCURS句の反復回数を超えています．FOR句の指定回数は指定したSQL文のホスト変数のOCCURS句の反復回数以下でなくてはなりません．