例題
[P2968.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2968. 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 SQLCA. 000009 02 SQLERRD PIC S9(9) BINARY OCCURS 6 TIMES. 000010 01 SQLINFOA. 000011 02 SQLERRD PIC S9(9) BINARY OCCURS 6 TIMES. 000012 77 HVAR3 PIC S9(9) BINARY. 000013 EXEC SQL END DECLARE SECTION END-EXEC. 000014 PROCEDURE DIVISION. 000015 EXEC SQL 000016 SELECT CL1 INTO :HVAR3 FROM TBL 000017 END-EXEC. 000018 END PROGRAM P2968.
P2968.cob 16: JMN2968I-S SQLINFOAに従属するSQLERRDと，SQLCAに従属するSQLERRDを同時に定義してはいけません．
詳細な説明
SQLERRDは，以下の2つの情報を格納するための領域です．
ストアドプロシージャの戻り値(配列の1番目の要素であるSQLERRD(1)を参照します)
複数行処理が行われた場合の処理行数(配列の3番目の要素であるSQLERRD(3)を参照します)
