This Net.Data macro creates a table named mytable that contains all the numeric types.
%{********************** Numeric Data Types Sample **************************
FileName = <b>sqlsamp2.mac</b>
Description:
Create table mytable in database mydb with all the numeric types.
Insert values into the table both negative and positive and minimum
and maximum. Query the table using a default table and different
report formats. Drop the table.
%}
%define{
DATABASE="sample"
DB_CASE="lower"
LOGIN="userid"
PASSWORD="password"
TRANSACTION_SCOPE="MULTIPLE"
db2www="db2www"
RPT_MAX_ROWS="100"
%}
%FUNCTION(DTW_SQL) Create() {
create table mytable (intcol int, sintcol smallint, deccol decimal(31,5),
numcol numeric(31,5), sfloatcol float,
dfloatcol double precision )
%}
%FUNCTION(DTW_SQL) Insert () {
insert into mytable values (-1, -1, -1.1, -1.1, -1.1, -1.1)
%}
%FUNCTION(DTW_SQL) Insert () {
insert into mytable values (+1, +1, +1.1, +1.1, +1.1, +1.1)
%}
%FUNCTION(DTW_SQL) Insert () {
insert into mytable values (-2147483648, -32768,
-99999999999999999999999999.99999,
-99999999999999999999999999.99999,
-1.797690000000000E+30, +2.224999999999999E-030)
%}
%FUNCTION(DTW_SQL) Insert () {
insert into mytable values (+2147483647, +32767,
+99999999999999999999999999.99999,
+99999999999999999999999999.99999,
-2.22499999999999999E-030,
-2.123456789012345+019 )
%}
%FUNCTION(DTW_SQL) Query( ) {
select * from mytable
%REPORT {
<pre>
<P> Selected $(ROW_NUM) rows
<P> Return code is $(RETURN_CODE)
<A NAME="exampleNlist"><P> $(NLIST)</A>
<OL>
<A NAME="exampleVlist">%ROW {<LI> $(VLIST)%}</A>
</OL>
</pre>
%}
%}
%FUNCTION(DTW_SQL) Query1( ) {
select * from mytable
%REPORT {
<pre>
<P> Selected $(ROW_NUM) rows
<A NAME="exampleNn"><P> $(N1) $(N2) $(N3) $(N4) $(N5) $(N6)</A>
<A NAME="exampleN_ColName">
<P> ...And the value of N_column-name for column 1 is $(N_INTCOL)</A>
<OL>
%ROW {
<LI>
<UL>
<A NAME="exampleV_ColName"><LI> $(V_INTCOL)</A>
<LI> $(V_SINTCOL)
<LI> $(V_DECCOL)
<LI> $(V_NUMCOL)
<LI> $(V_SFLOATCOL)
<LI> $(V_DFLOATCOL)
</UL>
%}
</OL>
</pre>
%}
%}
%FUNCTION(DTW_SQL) Query2( ) {
select * from mytable
%}
%FUNCTION(DTW_SQL) Drop( ) {
drop table mytable
%}
%HTML(REPORT){
<PRE>
-------------------------- Create -------------------------------
@Create( )
Return code for create is $(RETURN_CODE)
-------------------------- Insert -------------------------------
@Insert( )
Return code for insert is $(RETURN_CODE)
-------------------------- Query -------------------------------
@Query( )
-------------------------- Query 1 ------------------------------
@Query1( )
-------------------------- Query 2 ------------------------------
@Query2( )
-------------------------- Drop ---------------------------------
@Drop( )
<P> Final return code is $(RETURN_CODE)
</PRE>
%}
%{ End of Net.Data macro 2 %}
</PRE>
<p>
================================================================
<H2><A NAME="exampleMF2Output" href="#toc">
Output from Sample Net.Data macro #2</A></H2>
<P>
<PRE>-------------------------- Create -------------------------------
Return code for create is 0
-------------------------- Insert -------------------------------
SQL return code for insert is 0
-------------------------- Query -------------------------------
Selected rows
SQL return code is 0
INTCOLSINTCOLDECCOLNUMCOLSFLOATCOLDFLOATCOL
1. -1 -1 -1.10000 -1.10000 -1.10000000e+00 -1.10000000e+00
2. 1 1 1.10000 1.10000 1.10000000e+00 1.10000000e+00
3. -2147483648 -32768 -99999999999999999999999999.99999 -99999999999999999999999999.99999
-1.79769000e+30 2.22500000e-30
4. 2147483647 32767 99999999999999999999999999.99999 99999999999999999999999999.99999
-2.22500000e-30 1.68765432e+01
-------------------------- Query 1 ------------------------------
Selected rows
SQL return code is 0
INTCOL SINTCOL DECCOL NUMCOL SFLOATCOL DFLOATCOL
...And the value of N_column-name for column 1 is INTCOL
1.
-1
-1
-1.10000
-1.10000
-1.10000000e+00
-1.10000000e+00
2.
1
1
1.10000
1.10000
1.10000000e+00
1.10000000e+00
3.
-2147483648
-32768
-99999999999999999999999999.99999
-99999999999999999999999999.99999
-1.79769000e+30
2.22500000e-30
4.
2147483647
32767
99999999999999999999999999.99999
99999999999999999999999999.99999
-2.22500000e-30
1.68765432e+01
-------------------------- Query 2 ------------------------------
INTCOL | SINTCOL | DECCOL | NUMCOL | SFLOATCOL | DFLOATCOL |
------------------------------------------------------------------------------------------------------------------------------------
-1 | -1 | -1.10000 | -1.10000 | -1.10000000e+00 | -1.10000000e+00 |
------------------------------------------------------------------------------------------------------------------------------------
1 | 1 | 1.10000 | 1.10000 | 1.10000000e+00 | 1.10000000e+00 |
------------------------------------------------------------------------------------------------------------------------------------
-2147483648 | -32768 | -99999999999999999999999999.99999 | -99999999999999999999999999.99999 | -1.79769000e+30 | 2.22500000e-30 |
------------------------------------------------------------------------------------------------------------------------------------
2147483647 | 32767 | 99999999999999999999999999.99999 | 99999999999999999999999999.99999 | -2.22500000e-30 | 1.68765432e+01 |
------------------------------------------------------------------------------------------------------------------------------------
-------------------------- Drop ---------------------------------
Final return code is 0
|