SQLCA
*>********************************************************************<*
*>***** Copyright (c) 2005 - 2021 Veryant. Users of isCOBOL      *****<*
*>***** may freely modify and redistribute this program.         *****<*
*>********************************************************************<*
 
       >>SOURCE FORMAT FREE
 
       01  SQLCA.
           05  SQLCAID                PIC X(8).
           05  SQLCABC                PIC S9(9COMP-5.
           05  SQLCODE                PIC S9(9COMP-5.
           05  SQLERRM.
               49  SQLERRML           PIC S9(4COMP-5.
               49  SQLERRMC           PIC X(254).
           05  SQLERRP                PIC X(8).
           05  SQLERRD OCCURS 6 TIMES PIC S9(9COMP-5.
           05  SQLWARN.
               10 SQLWARN0            PIC X(1).
               10 SQLWARN1            PIC X(1).
               10 SQLWARN2            PIC X(1).
               10 SQLWARN3            PIC X(1).
               10 SQLWARN4            PIC X(1).
               10 SQLWARN5            PIC X(1).
               10 SQLWARN6            PIC X(1).
               10 SQLWARN7            PIC X(1).
           05  SQLSTATE               PIC X(5).
           05  SQLEXT                 PIC S9(5COMP-3 VALUE 1.
 
       >>SOURCE FORMAT PREVIOUS