SQLCA *>********************************************************************<* *>***** Copyright (c) 2005 - 2017 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(9) COMP-5. 05 SQLCODE PIC S9(9) COMP-5. 05 SQLERRML PIC S9(4) COMP-5. 05 SQLERRMC PIC X(254). 05 SQLERRP PIC X(8). 05 SQLERRD OCCURS 6 TIMES PIC S9(9) COMP-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(5) COMP-3 VALUE 1. >>SOURCE FORMAT PREVIOUS
