引数の説明
OCCURS句の最小値 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. SP8994.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000006 01 STOCK-TABLE.
000007 02 PRDCTINF OCCURS 2 PIC X(1).
000008 02 PRDCTNUM OCCURS 3 PIC S9(4) COMP-5.
000009 02 PRDCTNAM OCCURS 4 PIC X(10).
000010 01 SQLSTATE PIC X(5).
000011 01 SQLMSG PIC X(128).
000012 01 VAR-IND1 PIC S9(4) COMP-5.
000013 EXEC SQL END DECLARE SECTION END-EXEC.
000014 PROCEDURE DIVISION.
000015 EXEC SQL
000016 SELECT PINF,PNO,PNAME INTO :PRDCTINF, :PRDCTNUM, :PRDCTNAM
000017 FROM STOCK WHERE PNAME = 'TIRE'
000018 END-EXEC
000019 .
SP8994.cob (16) : JMN2754I-I ODBC-8994W 各SQL文変数に指定されたOCCURS句の反復回数が異なっています.最小値“2”を有効にします.
詳細な説明
各項目で異なるOCCURS反復回数を持つ集団項目のホスト変数を各基本項目(複数行指定)で参照することはできません.