This section shows the equivalent INCLUDE SQLDA declaration for C and C++, COBOL, ILE COBOL, PL/I, and ILE RPG.
In C and C++, INCLUDE SQLDA declarations are equivalent to the following:
#ifndef SQLDASIZE
struct sqlda
{
unsigned char sqldaid[8];
long sqldabc;
short sqln;
short sqld;
struct sqlvar
{
short sqltype;
short sqllen;
union {
unsigned char *sqldata;
long long sqld_result_set_locator; };
union {
short *sqlind;
long sqld_row_change;
long sqld_result_set_rows; };
struct sqlname
{
short length;
unsigned char data[30];
} sqlname;
} sqlvar[1];
};
struct sqlvar2
{ struct
{ long sqllonglen;
char reserve1[28];
} len;
char *sqldatalen;
struct sqldistinct_type
{ short length;
unsigned char data[30];
} sqldatatype_name;
};
#define SQLDASIZE(n) (sizeof(struct sqlda)+(n-1) * sizeof(struct sqlvar))
#endif
/*********************************************************************/
/* Macros for using the sqlvar2 fields. */
/*********************************************************************/
/*********************************************************************/
/* '2' in the 7th byte of sqldaid indicates a doubled number of */
/* sqlvar entries. */
/* '3' in the 7th byte of sqldaid indicates a tripled number of */
/* sqlvar entries. */
/* '4' in the 7th byte of sqldaid indicates a quadrupled number of */
/* sqlvar entries. */
/*********************************************************************/
#define SQLDOUBLED '2'
#define SQLSINGLED ' '
/*********************************************************************/
/* GETSQLDOUBLED(daptr) returns 1 if the SQLDA pointed to by */
/* daptr has been doubled, or 0 if it has not been doubled. */
/*********************************************************************/
#define GETSQLDOUBLED(daptr) (((daptr)->sqldaid[6]== \
(char) SQLDOUBLED) ? \
(1) : \
(0) )
/*********************************************************************/
/* SETSQLDOUBLED(daptr, SQLDOUBLED) sets the 7th byte of sqldaid */
/* to '2'. */
/* SETSQLDOUBLED(daptr, SQLSINGLED) sets the 7th byte of sqldaid */
/* to be a ' '. */
/*********************************************************************/
#define SETSQLDOUBLED(daptr, newvalue) \
(((daptr)->sqldaid[6] =(newvalue)))
/*********************************************************************/
/* GETSQLDALONGLEN(daptr,n) returns the data length of the nth */
/* entry in the sqlda pointed to by daptr. Use this only if the */
/* sqlda was doubled or tripled and the nth SQLVAR entry has a */
/* LOB datatype. */
/*********************************************************************/
#define GETSQLDALONGLEN(daptr,n) ((long) (((struct sqlvar2 *) \
&((daptr)->sqlvar[(n) +((daptr)->sqld)])) ->len.sqllonglen))
/*********************************************************************/
/* SETSQLDALONGLEN(daptr,n,len) sets the sqllonglen field of the */
/* sqlda pointed to by daptr to len for the nth entry. Use this only */
/* if the sqlda was doubled or tripled and the nth SQLVAR entry has */
/* a LOB datatype. */
/*********************************************************************/
#define SETSQLDALONGLEN(daptr,n,length) { \
struct sqlvar2 *var2ptr; \
var2ptr = (struct sqlvar2 *) &((daptr)->sqlvar[(n)+ \
((daptr)->sqld)]); \
var2ptr->len.sqllonglen = (long) (length); \
}
/*********************************************************************/
/* SETSQLDALENPTR(daptr,n,ptr) sets a pointer to the data length for */
/* the nth entry in the sqlda pointed to by daptr. */
/* Use this only if the sqlda has been doubled or tripled. */
/*********************************************************************/
#define SETSQLDALENPTR(daptr,n,ptr) { \
struct sqlvar2 *var2ptr; \
var2ptr = (struct sqlvar2 *) &((daptr)->sqlvar[(n)+ \
((daptr)->sqld)]); \
var2ptr->sqldatalen = (char *) ptr; \
}
/*********************************************************************/
/* GETSQLDALENPTR(daptr,n) returns a pointer to the data length for */
/* the nth entry in the sqlda pointed to by daptr. Unlike the inline */
/* value (union sql8bytelen len), which is 8 bytes, the sqldatalen */
/* pointer field returns a pointer to a long (4 byte) integer. */
/* If the SQLDATALEN pointer is zero, a NULL pointer is be returned. */
/* */
/* NOTE: Use this only if the sqlda has been doubled or tripled. */
/*********************************************************************/
#define GETSQLDALENPTR(daptr,n) ( \
(((struct sqlvar2 *) &(daptr)->sqlvar[(n) + \
(daptr)->sqld])->sqldatalen == NULL) ? \
((long *) NULL ) : ((long *) ((struct sqlvar2 *) \
&(daptr)->sqlvar[(n) + (daptr) ->sqld])->sqldatalen))
In COBOL and ILE COBOL, INCLUDE SQLDA declarations are equivalent to the following:
1 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 409 TIMES DEPENDING ON SQLD.
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 SQLRES PIC X(12).
15 SQLDATA POINTER.
15 SQL-RESULT-SET-LOCATOR-R REDEFINES SQLDATA.
20 SQL-RESULT-SET-LOCATOR PIC S9(18) BINARY.
15 SQLIND POINTER.
15 SQL-ROW-CHANGE-SQL-R REDEFINES SQLIND.
20 SQLD-ROW-CHANGE FIC S9(9) BINARY.
15 SQL-RESULT-SET-ROWS-R PIC REDEFINES SQLIND.
20 SQLD-RESULT-SET-ROWS PIC S9(9) BINARY.
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 REDEFINEDS SQLVAR2-RESERVED-1
PIC S9(9) BINARY.
15 SQLVAR2-RESERVED-2 PIC X(28).
15 SQLDATALEN POINTER.
15 SQLDATATYPE-NAME.
49 SQLDATATYPE_NAMEL PIC S9(4) BINARY.
49 SQLDATATYPE_NAMEC PIC X(30).
In PL/I, INCLUDE SQLDA declarations are equivalent to the following:
DCL 1 SQLDA BASED(SQLDAPTR),
2 SQLDAID CHAR(8),
2 SQLDABC BIN FIXED(31),
2 SQLN BIN FIXED,
2 SQLD BIN FIXED,
2 SQLVAR (99),
3 SQLTYPE BIN FIXED,
3 SQLLEN BIN FIXED,
3 SQLRES CHAR(12),
3 SQLDATA PTR,
3 SQLIND PTR,
3 SQLNAME CHAR(30) VAR,
1 SQLDA2 BASED(SQLDAPTR),
2 SQLDAID2 CHAR(8),
2 SQLDABC2 FIXED(31) BINARY,
2 SQLN2 FIXED(15) BINARY,
2 SQLD2 FIXED(15) BINARY,
2 SQLVAR2 (99),
3 SQLBIGLEN,
4 SQLLONGL FIXED(31) BINARY,
4 SQLRSVDL FIXED(31) BINARY,
3 SQLDATAL POINTER,
3 SQLTNAME CHAR(30) VAR;
DECLARE SQLSIZE FIXED(15) BINARY;
DECLARE SQLDAPTR PTR;
DECLARE SQLDOUBLED CHAR(1) INITIAL('2') STATIC;
DECLARE SQLSINGLED CHAR(1) INITIAL(' ') STATIC;
In ILE RPG, INCLUDE SQLDA declarations are equivalent to the following:
D* SQL DESCRIPTOR AREA D SQLDA DS D SQLDAID 8A D SQLDABC 10I 0 D SQLN 5I 0 D SQLD 5I 0 D SQL_VAR 80A DIM(SQL_NUM) D 33 48* D 49 64* D* D SQLVAR DS D SQLTYPE 5I 0 D SQLLEN 6I 0 D SQLRES 12A D SQLINFO1 16A D SQLDATA * OVERLAY(SQLINFO1:1) D SQL_RESULT_SET_LOCATOR... D 20I 0 OVERLAY(SQLINFO1:1) D SQLINFO2 16A D SQLIND * OVERLAY(SQLINFO2:1) D SQL_ROW_CHANGE... D 10I 0 OVERLAY(SQLINFO2:1) D SQL_RESULT_SET_ROWS... D 10I 0 OVERLAY(SQLINFO2:1) D SQLNAMELEN 5I 0 D SQLNAME 30A D* END OF SQLDA D* EXTENDED SQLDA D SQLVAR2 DS D SQLLONGL 1 4I 0 D SQLRSVDL 5 32A D SQLDATAL 33 48* D SQLTNAMELN 49 50I 0 D SQLTNAME 51 80A D* END OF EXTENDED SQLDA
The user is responsible for the definition of SQL_NUM. SQL_NUM must be defined as a numeric constant with the dimension required for SQL_VAR.
Since RPG does not support structures within arrays, the SQLDA generates three data structures. The second and third data structures are used to setup/reference the part of the SQLDA which contains the field descriptions.
To set the field descriptions of the SQLDA the program sets up the field description in the subfields of SQLVAR (or SQLVAR2) and then does a MOVEA of SQLVAR (or SQLVAR2) to SQL_VAR, n where n is the number of the field in the SQLDA. This is repeated until all the field descriptions are set.
When the SQLDA field descriptions are to be referenced the user does a MOVEA of SQL_VAR, n to SQLVAR (or SQLVAR2) where n is the number of the field description to be processed.