Sample COBOL II SQLDA

*****************************************************************
 * The following sample description of the SQLDA is for COBOL II.
 * A complete description of each field and its purpose may be
 * found in the “DB2 SQL Reference.”  Note that SQLDABC (SQLDA
 * Byte Count) may be initialized with:
 *
 * MOVE LENGTH OF SQLDA TO SQLDABC.
 *****************************************************************
 01  SQLDA.
     03  SQLDAID                    PIC X(8).
     03  SQLDABC                    PIC S9(8) COMP.
     03  SQLN                       PIC S9(4) COMP.
     03  SQLD                       PIC S9(4) COMP.
     03  SQLVAR                     OCCURS 0 TO 300 TIMES
                                    DEPENDING ON SQLN.
         05  SQLTYPE               PIC S9(4) COMP.
         05  SQLLEN                PIC S9(4) COMP.
         05  SQLDATA               USAGE IS POINTER.
         05  SQLIND                USAGE IS POINTER.
         05  SQLNAME.
             07  SQLNAMELENGTH     PIC S9(4) COMP.
             07  SQLNAMEVALUE      PIC X(30).