SQL Programming Manual for Pascal

ManualsBrandsHP ManualsServerHP NonStop G-Series

Error and Status Processing

HP NonStop SQL Programming Manual for Pascal—528614-001

6-22

Example of Declaring the SQLDA

2: (scale : BYTE;

nlen : BYTE);

{ fields for DATETIME or INTERVAL }

3: (dt_qualifier : BYTE;

dt_len : BYTE) );

( 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 ;

SQLDA_TYPE = RECORD

eye_catcher : FSTRING(2);

num_entries : INTEGER;

sqlvar : ARRAY [1..1] OF SQLVAR_TYPE;

END ;

VAR

sqldax : SQLDA_TYPE;

namebuf : ARRAY [1..820] OF CHAR;