%{----------------------------------------------------------------------------%}
%{ Table3.ndm -- Net.Data table processing, example 3                         %}
%{ Use Net.Data table variables for complete control of table display.        %}
%{                                                                            %}
%{ Copyright (c) 2000, Craig Pelkie                                           %}
%{ ALL RIGHTS RESERVED                                                        %}
%{----------------------------------------------------------------------------%}

%{----------------------------------------------------------------------------%}
%{ Define section for the macro                                               %}
%{----------------------------------------------------------------------------%}
%define {
    DATABASE           = "*LOCAL"
    DTW_DEFAULT_REPORT = "NO"
    sqlTable           = %TABLE
%}

%{----------------------------------------------------------------------------%}
%{ RUNSQL - run the SQL statement, return %TABLE variable                     %}
%{----------------------------------------------------------------------------%}
%function(DTW_SQL) RUNSQL(OUT sqlTable) {
    select * from qiws.qcustcdt order by cusnum
%}

%{----------------------------------------------------------------------------%}
%{ OUTPUT_TABLE - macro function to work with %TABLE variable                 %}
%{----------------------------------------------------------------------------%}
%macro_function OUTPUT_TABLE (IN sqlTable) {
	
    <!---------------------------------------------------
	Table headers
    ---------------------------------------------------->
    <br>
    <table  border="0"
            cellpadding="1"
            bgcolor="lightcyan">

	<tr  bgcolor="lightsteelblue">
		
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "1")<br>Customer Number
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "2")<br>Last Name
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "3")<br>Initials
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "4")<br>Street
            </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "5")<br>City
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "6")<br>State
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "7")<br>Zip Code
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "8")<br>Credit Limit
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "9")<br>Charge Code
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "10")<br>Balance Due
	    </font></th>
			
	    <th><font size="-2">
		@dtw_tb_rgetn(sqlTable, "11")<br>Credit Due
	    </font></th>							
	</tr>
		
	<!---------------------------------------------------
		Table rows
	---------------------------------------------------->
	@dtw_tb_rows(sqlTable, numRows)
	@dtw_assign(rowIndex, "1")
	@dtw_assign(color, "lightcyan")
	
	%while (rowIndex <= numRows) {
	    		
	    <tr	bgcolor=$(color)>

		<td align="center"><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "1")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "2")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "3")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "4")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "5")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "6")
		</font></td>
			
		<td><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "7")
		</font></td>
			
		<td align="right"><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "8")
		</font></td>
			
		<td align="center"><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "9")
		</font></td>
			
		<td align="right"><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "10")
		</font></td>
			
		<td align="right"><font size="-2">
		    @dtw_tb_rgetv(sqlTable, rowIndex, "11")
		</font></td>																				
	    </tr>
	    
	    %if (color == "lightcyan")
		@dtw_assign(color, "silver")
	    %else
		@dtw_assign(color, "lightcyan")
	    %endif
					
	    @dtw_add(rowIndex, "1", rowIndex)
	%}

    </table>
%}

%{----------------------------------------------------------------------------%}
%{ INPUT - initial section called, calls RUNSQL macro function                %}
%{----------------------------------------------------------------------------%}
%html(INPUT) {

    <html>
	<head>
	    <title>Net.Data macro Table3.ndm</title>
	</head>

	<body>
  	    <center>
		<h1>Net.Data macro Table3.ndm</h1>
		@RUNSQL(sqlTable)
		@OUTPUT_TABLE(sqlTable)
	    </center>
	</body>
    </html>
%}