      * 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 {$*SQLDA}.
        05 {$*SQLDAID} PIC X(8).
        05 {$*SQLDABC} PIC S9(9) BINARY.
        05 {$*SQLN}    PIC S9(4) BINARY.
        05 {$*SQLD}    PIC S9(4) BINARY.
        05 {$*SQLVAR}  OCCURS 0 TO 750 TIMES DEPENDING ON {$SQLN}.
                10 {$*SQLVAR1}.
                        15 {$*SQLTYPE} PIC S9(4) BINARY.
                        15 {$*SQLLEN}  PIC S9(4) BINARY.
                        15 FILLER  REDEFINES {$SQLLEN}.
                        20 {$*SQLPRECISION}   PIC X.
                        20 {$*SQLSCALE}       PIC X.
                        15 {$*SQLDATA} POINTER.
                        15 {$*SQLIND}  POINTER.
                        15 {$*SQLNAME}.
                        49 {$*SQLNAMEL} PIC S9(4) BINARY.
                        49 {$*SQLNAMEC} PIC X(30).
               10 {$*SQLVAR2} REDEFINES {$SQLVAR1}.
                15 {$*SQLVAR2-RESERVED-1} PIC S9(9) BINARY.
                15 {$*SQLLONGLEN}  REDEFINES {$SQLVAR2-RESERVED-1}
                                PIC S9(9) BINARY.
                15 {$*SQLVAR2-RESERVED-2} PIC S9(9) BINARY.
                15 {$*SQLDATALEN}         POINTER.
                15 {$*SQLDATATYPE-NAME}.
                20 {$*SQLDATATYPE-NAMEL} PIC S9(4) BINARY.
                20 {$*SQLDATATYPE-NAMEC} PIC X(30).
