例題
[P2742.cob] 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の項目でなければなりません.
詳細な説明
SQLERRDは,以下の2つの情報を格納するための領域です.
ストアドプロシージャの戻り値(配列の1番目の要素であるSQLERRD(1)を参照します)
複数行処理が行われた場合の処理行数(配列の3番目の要素であるSQLERRD(3)を参照します)