SQL Programming Manual for Pascal

Error and Status Processing
HP NonStop SQL Programming Manual for Pascal—528614-001
6-15
Declaring the SQLDA and Names Buffer
Figure 6-2 on page 6-15 and Figure 6-3 on page 6-16 show the record description
generated by the INCLUDE SQLDA directive for NonStop SQL Release 1 and Release
2.
Figure 6-2. NonStop SQL Release 2 SQLDA Record Description and Names
Buffer
CONST
SQLDA_EYE_CATCHER [ _R2 ] = 'D1';
TYPE
SQLVAR_TYPE [ _R2 ] = RECORD
data_type : INTEGER;
( CASE INTEGER OF
1: (data_len : INTEGER);
{ fields for numbers }
2: (scale : BYTE;
nlen : BYTE);
{ fields for DATETIME or INTERVAL }
3: (dt_qualifier : BYTE;
dt_len : BYTE) );
VAR
sqlda_name : SQLDA_TYPE [ _R2 ];
names_buffer_name : ARRAY [1.. length] OF CHAR;
SQLDA_TYPE [ _R2 ] = RECORD
eye_catcher : FSTRING(2);
num_entries : INTEGER;
sqlvar : ARRAY [1..sqlvar_count] OF SQLVAR_TYPE [_R2];
END ;
( CASE INTEGER OF
1: (precision : INTEGER);
{ fields for DATETIME or INTERVAL }
2: (lead_field_precision : BYTE;
fraction_precision : BYTE) );
null_info : INTEGER;
var_ptr : EXTADDR;
ind_ptr : EXTADDR;
reserved : INT64;
END ;
VST0602.vsd