例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2742.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE PIC X(5).
000008 01 SQLINFOA .
000009 02 SQLERRD PIC S9(9) BINARY OCCURS 10 TIMES.
000010 77 HVAR3 PIC S9(9) BINARY.
000011 EXEC SQL END DECLARE SECTION END-EXEC.
000012 PROCEDURE DIVISION.
000013 EXEC SQL
000014 SELECT CL1 INTO :HVAR3 FROM TBL
000015 END-EXEC.
000016 END PROGRAM P2742.
P2742.cob (9) : JMN2742I-S SQLERRDは,6個の要素を持つ配列であり,SQLINFOAにただ1つ従属するレベル番号02の項目またはレベル番号01のSQLCAに直接従属する項目でなければなりません.また、OCCURS句にDEPENDING ON指定,KEY IS指定およびINDEXED BY指定は記述できません.
詳細な説明
SQLERRDは,以下の2つの情報を格納するための領域です.
ストアドプロシージャの戻り値(配列の1番目の要素であるSQLERRD(1)を参照します)
複数行処理が行われた場合の処理行数(配列の3番目の要素であるSQLERRD(3)を参照します)