Net.data/REXX Error Message

[Michael Hill <MHILL@xxxxxxxxx>]

Happy New Year Guys,

Have either of you had the following message

Net.Data DTW_REXX Error: FUNCTION (displayRows): Unknown System State

Here is the program I'm trying to run:

 %define {
   START_ROW_NUM="1"
   RPT_MAX_ROWS="9"
   resultTable = %table
   DATABASE="ZEUS"
   DTW_DEFAULT_REPORT = "no"
 %}
                                                                        
 %function(DTW_SQL) myQuery(OUT table) {
   select prodc, prodd, prcqoh, prcbs from GFCSTD.PROD
   %report { %}
 %}
                                                                        
 %function(DTW_REXX) displayRows(INOUT startRow, direction, table, IN
pageSize) { 
 if(direction = 'next') then do
     startRow = startRow + PageSize
                                                                        
     if ((table_ROWS+1) - startRow < pageSize) then
       direction = 'prev_only'
     else
       direction = 'both'
   end
 else if(direction = '') then
   do
     startRow = 1
     if(startRow + pageSize > table_ROWS) then
       direction = 'neither'
     else
       direction = 'next_only'
   end
 %}
                                                                        
 %html(report) {
                                                                     
 @myQuery(resultTable)
                                                                        
 <form method="POST" action="report">
                                                                        
 @displayRows(START_ROW_NUM, submit, resultTable, RPT_MAX_ROWS)
 <input name="START_ROW_NUM" type="hidden" value="$*(START_ROW_NUM)">
                                                                        
 %if(submit == "both" || submit == "next_only")
   <input name="submit" type="submit" value="next">
 %endif
                                                                        
 %if(submit == "both" || submit == "prev_only")
   <input name="submit" type="submit" value="previous">
 %endif
                                                                        
                                                                        
 </form>
 %}


Any ideas anyone??????


Michael Hill
Centurion Ltd
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---