%{----------------------------------------------------------------------%}
%{ Table3.ndm - Net.Data message handling, example 3. %}
%{ %}
%{ Copyright (c) 2001, Craig Pelkie %}
%{ ALL RIGHTS RESERVED %}
%{----------------------------------------------------------------------%}
%{----------------------------------------------------------------------%}
%{ Define section for macro %}
%{----------------------------------------------------------------------%}
%define {
DTW_HTML_TABLE = "YES"
%}
%include "ErrorMsg_Block.ndm"
%{----------------------------------------------------------------------%}
%{ RUNSQL - run the SQL statement, generate default report %}
%{----------------------------------------------------------------------%}
%function(DTW_SQL) RUNSQL() {
select * from qiws.qcustcdt where cusnum = 111111
%message {
SQLSTATE : 02000 : "Customer number not in file.
" : Continue
%}
%}
%{----------------------------------------------------------------------%}
%{ INPUT - initial section called, runs RUNSQL macro function %}
%{----------------------------------------------------------------------%}
%html(INPUT) {
Net.Data macro Table3.ndm
Net.Data macro Table3.ndm
@RUNSQL()
@dtw_assign("a")
** END **
%}