Re: Net.data/REXX Error Message

[bdietz@xxxxxx]

If you are on V3R7 maybe this PTF will help

 ..          5716TC1 5050 0000 SF45803 2924 R07M00    0003

 ., TCPIP-INCORROUT - NET.DATA START_ROW_NUM NOT WORKING



 PTF/FIX #: SF45803 - AS/400 TCP/IP CONNECTIVITY UTILITIES/400

 LICENSED PROGRAM: 5716TC1



 --------------------------------------------------------------------------
-
 :  SYSTEM : MODELS  : RELEASE : RECOMPILE : LIBRARY  :  MRI   :  APAR
:
 :         :         :         :           :          : FEATURE:  FIXED
:
 :         :         :         :           :          :        :
:
 :  AS/400 :  *ALL   : V3R7M0  :     N     :   QTCP   :  NONE  :  SA70385
:
 --------------------------------------------------------------------------
-


 REQ  LICENSED      PTF/FIX

 TYPE PROGRAM  REL  NUMBER   LICENSED PROGRAM DESCRIPTION

 ---- -------- ---  -------  ----------------------------------------------
-
 PRE  5716TC1  370  SF36412  AS/400 TCP/IP CONNECTIVITY UTILITIES/400

 CO   5716SS1  370  SF39308  OPERATING SYSTEM/400

 CO   5716SS1  370  SF38031  OPERATING SYSTEM/400

 CO   5716SS1  370  SF35079  OPERATING SYSTEM/400





 DESCRIPTION OF PROBLEM FIXED FOR APAR SA70385 :

 -----------------------------------------------

    START_ROW_NUM does not work correctly for non-default reports.


Got this from the list of PTF's avail for Net.Data on the 400 site.

Bryan Dietz
3X Corp.







Michael Hill <MHILL@csi.co.nz> on 01/05/98 10:52:02 PM

Please respond to MIDRANGE-L@midrange.com

To:   "'rbbaird@premsys.com'" <rbbaird@premsys.com>,
      "'jamest@team.itg.com.au'" <jamest@team.itg.com.au>
cc:   "'MidrangeList'" <MIDRANGE-L@midrange.com> (bcc: Bryan
      Dietz/Columbus/3X Corp)
Subject:  Net.data/REXX Error Message




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
+---






+---
| 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
+---