01 SQLCA.
01 SQLCA.
05 SQLCA-EYE-CATCH PIC X(08).
05 SQLCAID REDEFINES SQLCA-EYE-CATCH
PIC X(08).
05 SQLCA-LEN PIC S9(9) COMP.
05 SQLCABC REDEFINES SQLCA-LEN
PIC S9(9) COMP.
05 SQLCA-DB-VRS PIC X(02).
05 SQLCA-DB-RLS PIC X(02).
05 SQLCA-LUWID PIC X(08).
05 SQLCODE PIC S9(9) COMP.
05 SQLCA-ERROR-INFO.
10 SQLCA-ERR-LEN PIC S9(4) COMP.
10 SQLCA-ERR-MSG PIC X(80).
05 SQLERRM REDEFINES SQLCA-ERROR-INFO.
10 SQLERRML PIC S9(4) COMP.
10 SQLERRMC PIC X(70).
05 SQLCA-ERROR-PGM PIC X(08).
05 SQLERRP REDEFINES SQLCA-ERROR-PGM
PIC X(08).
05 SQLCA-FILLER-1 PIC X(02).
05 SQLCA-ERROR-DATA.
10 SQLCA-DSFCODE PIC X(04).
10 SQLCA-INFCODE PIC S9(9) COMP.
10 SQLCA-DBCODE.
15 SQLCA-DBCODE-EXT PIC X(02).
15 SQLCA-DBCODE-INT PIC S9(4) COMP.
10 SQLCA-MISC-DATA.
15 SQLCA-MISC-CODE2 PIC S9(9) COMP.
15 SQLCA-MISC-CODE3 PIC S9(9) COMP.
10 SQLCA-ERR-DIAG REDEFINES SQLCA-MISC-DATA.
15 SQLSTATE PIC X(05).
15 SQLCA-FILLER-2 PIC X(03).
05 SQLCA-WRN-AREA.
10 SQLCA-WARNING PIC X OCCURS 8 TIMES.
(Continued on Next Page)
05 SQLWARN REDEFINES SQLCA-WRN-AREA.
10 SQLWARN0 PIC X.
10 SQLWARN1 PIC X.
10 SQLWARN2 PIC X.
10 SQLWARN3 PIC X.
10 SQLWARN4 PIC X.
10 SQLWARN5 PIC X.
10 SQLWARN6 PIC X.
10 SQLWARN7 PIC X.
05 SQLCA-PGM-NAME
PIC X(08).
05 SQLCA-AUTHID
PIC X(18).
05 SQLCA-PLAN-NAME
PIC X(18).
Note: All REDEFINES are for compatibility with other SQL implementations.
|
Copyright © 2014 CA.
All rights reserved.
|
|