ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.3.580 JMN2968I-S

SQLINFOAに従属するSQLERRDと,SQLCAに従属するSQLERRDを同時に定義してはいけません.

      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)を参照します)