Embedded SQL Companion Guide > Embedded SQL Companion Guide > Embedded SQL for Fortran > Sample Application Compiled with /float=ieee Flag (VMS)
Was this helpful?
Sample Application Compiled with /float=ieee Flag (VMS)
This sample application illustrates the use of the /float=ieee flag when compiling embedded SQL programs on VMS.
Setup:
createdb testdb
sql testdb <create.sql
Create.sql does the following:
drop table test1;
\p\g
create table test1 ( col1 float8 );
\p\g
insert into test1 (col1) values (1.400) ;
\p\g
Fortran sample program PROG01.SF:
Program PROG01
 
implicit none ! NEW
 
exec sql include sqlca
 
exec sql include sqlda
 
exec sql begin declare section
   real*8 testfloat
   real*8 testafter
   character*10 database
   character*100 errmsg
exec sql end declare section
 
print *, ' - This is a test program - testing REAL*8 data type !! '
print *, ' '
 
testfloat = 1.5
 
database = 'testdb'
 
print *, ' - Connecting to database : ', database
print *, ' ' ! NEW
 
exec sql whenever sqlerror call sqlprint
 
exec sql connect :database
 
print *, ' - Delete any records that are :' , testfloat
print *, ' ' ! NEW
 
exec sql delete from test1 where col1 = :testfloat
 
print *, ' - Inserting value ', testfloat, 'in table : test1 '
print *, ' ' ! NEW
 
exec sql insert into test1 (col1) values (:testfloat)
 
exec sql commit
 
 
exec sql select col1 into :testafter from test1
         where col1 = :testfloat
 
print *, ' - Returned value is ', testafter
 
exec sql disconnect
 
end
The precompile and compile script:
$! precompiling
$!
$ esqlf prog01
$!
$! Compiling with the required IEEE qualifier
$!
$ for /float=IEEE/align/extend prog01
$!
$ link prog01.obj,ii_system:[ingres.files]esql.opt/opt
$!
$ run prog01.exe
Example of output from the program when compiled with the /float=ieee qualifier:
select hex(col1) from test1\g
Executing . . .
 
 
+----------------+
|col1            |
+----------------+
|3FF6666666666666|
|3FF8000000000000|
|0000000000004018|
+----------------+
(3 rows)
continue
*
select * from test1\g
Executing . . .
 
 
+-----------+
|col1       |
+-----------+
|      1.400|
|      1.500|
|      0.000|
+-----------+
(3 rows)
continue
*
Example of output from the program when compiled without the /float=ieee qualifier:
select hex(col1) from test1\g
Executing . . .
 
 
+----------------+
|col1            |
+----------------+
|3FF6666666666666|
|3FF8000000000000|
|0000000000004018|
+----------------+
(3 rows)
continue
*
select * from test1\g
Executing . . .
 
+-----------+
|col1       |
+-----------+
|      1.400|
|      1.500|
E_MO003C Unknown exception 00011301: current query program aborted
E_LQ002B 'rollback' may not be nested within a data retrieval loop.
E_LQ002B 'commit' may not be nested within a data retrieval loop.
 
Last modified date: 08/28/2024