%{-------------------------------------------------------------%}
%{ TBTEST.ndm -- Net.Data table processing. Call RPG program %}
%{ to fill in values for table. %}
%{ %}
%{ Copyright (c) 2000, Craig Pelkie %}
%{ ALL RIGHTS RESERVED %}
%{-------------------------------------------------------------%}
%{-------------------------------------------------------------%}
%{ Section A - Define section for the macro %}
%{-------------------------------------------------------------%}
%define {
DTW_HTML_TABLE = "YES"
tbtest = %table
%}
%include "ErrorMsg_Block.ndm"
%{-------------------------------------------------------------%}
%{ Section B - GETTABLE - get data for Net.Data table %}
%{-------------------------------------------------------------%}
%function(DTW_DIRECTCALL) GETTABLE(inout dtwtable tbtest) {
%EXEC { /QSYS.LIB/NETDATA.LIB/TBTEST.PGM %}
%}
%{-------------------------------------------------------------%}
%{ Section C - INPUT - initial section called %}
%{-------------------------------------------------------------%}
%html(INPUT) {
Net.Data macro TBTEST.ndm
Net.Data macro TBTEST.ndm6
@GETTABLE(tbtest)
%}