SQL Programming Manual for Pascal

Error and Status Processing
HP NonStop SQL Programming Manual for Pascal—528614-001
6-21
Example of Declaring the SQLDA
Example of Declaring the SQLDA
This example declares an SQLDA structure named SQLDAX and a names buffer
NAMEBUF for allocation during compilation. The SQLDA structure reserves space for
20 columns or parameters. The names buffer reserves space for column or parameter
names with a maximum length of 30 characters.
EXEC SQL
INCLUDE SQLDA ( SQLDAX, 20, NAMEBUF, 30 );
The Pascal compiler generates the following SQLDA record description:
CONST
SQLDA_EYE_CATCHER = 'D1';
TYPE
SQLVAR_TYPE = RECORD
data_type : INTEGER;
( CASE INTEGER OF
1: (data_len : INTEGER);
{ fields for numbers }
YEAR TO DAY 9 SQLDT_INT_QUAL_Y_D
YEAR TO HOUR 10 SQLDT_INT_QUAL_Y_H
YEAR TO MINUTE 11 SQLDT_INT_QUAL_Y_MI
YEAR TO SECOND 12 SQLDT_INT_QUAL_Y_S
YEAR TO FRACTION 13 SQLDT_INT_QUAL_Y_F
MONTH TO DAY 14 SQLDT_INT_QUAL_MO_D
MONTH TO HOUR 15 SQLDT_INT_QUAL_MO_H
MONTH TO MINUTE 16 SQLDT_INT_QUAL_MO_MI
MONTH TO SECOND 17 SQLDT_INT_QUAL_MO_S
MONTH TO FRACTION 18 SQLDT_INT_QUAL_MO_F
DAY TO HOUR 19 SQLDT_INT_QUAL_D_H
DAY TO MINUTE 20 SQLDT_INT_QUAL_D_MI
DAY TO SECOND 21 SQLDT_INT_QUAL_D_S
DAY TO FRACTION 22 SQLDT_INT_QUAL_D_F
HOUR TO MINUTE 23 SQLDT_INT_QUAL_H_MI
HOUR TO SECOND 24 SQLDT_INT_QUAL_H_S
HOUR TO FRACTION 25 SQLDT_INT_QUAL_H_F
SECOND TO SECOND 26 SQLDT_INT_QUAL_S_S
SECOND TO FRACTION 27 SQLDT_INT_QUAL_S_F
FRACTION TO FRACTION 28 28 SQLDT_INT_QUAL_F_F
Table 6-7. Literal Declarations for Ranges of Date-Time Fields (page 2 of 2)
Range of Fields Value Pascal Literal