      * Copyright (c) 2021 Broadcom.
      * The term "Broadcom" refers to Broadcom Inc. and/or its subsidiaries.
      *
      * This program and the accompanying materials are made
      * available under the terms of the Eclipse Public License 2.0
      * which is available at https://www.eclipse.org/legal/epl-2.0/
      *
      * SPDX-License-Identifier: EPL-2.0
      *
      * Contributors:
      * Broadcom, Inc. - initial API and implementation
          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  {$*SQLCA-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).
                    10  {$*SQLERRMF}      PIC X(10).
                
                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-CODE1}     PIC S9(9) COMP.
                    10  {$*SQLCA-MISC-CODES-B}.
                   15  {$*SQLCA-MISC-CODE2} PIC S9(9) COMP.
                   15  {$*SQLCA-MISC-CODE3} PIC S9(9) COMP.
                    10  {$*SQLCA-ERR-INFO-2} REDEFINES
                            {$SQLCA-MISC-CODES-B}.
                   15  {$*SQLCA-SQLSTATE}   PIC X(05).
                   15  {$*SQLCA-FILLER-2}   PIC X(03).
                
                05  {$*SQLCA-WRN-AREA}.
                    10  {$*SQLCA-WARNING}  PIC X OCCURS 8 TIMES.
                
                05  {$*SQLWARN} REDEFINES  {$SQLCA-WRN-AREA} PIC X.
                    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).
