Sample COBOL-language SQLDA description

The following sample description of the SQLDA is for the COBOL II programming language. A complete description of each field and its purpose is in the IBM DB2 SQL Reference.

NoteYou can initializze SQLDABC (SQLDA Byte Count) with

MOVE LENGTH OF SQLDA TO SQLDABC
*****************************************************************
 * The following sample description of the SQLDA is for COBOL II.
 * A complete description of each field and its purpose is 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).