Date:         Fri, 28 Nov 1997 22:09:50 GMT
Reply-To:     REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
From:         Frank Clarke <nisus@MINDSPRING.COM>
Organization: MindSpring Enterprises, Inc.
Subject:      Re: REXX Table dialog display problem
Comments: To: TSO-REXX@VM.MARIST.EDU

Guess: the row you see is the LAST row added (probably with ORDER).
To successfully TBSARG, you should TBVCLEAR first:
 
"TBVCLEAR" tblname     /* zaps all table variables  */
parse value "* * *" with tblfld1 tblfld2 tblfld3 .
"TBSARG" tblname "NAMECOND(TBLFLD1,EQ,TBLFLD2,EQ,TBLFLD3,EQ)"
 
do forever
   "TBDISPL" tblname "PANEL("tdpanel")"
   if rc > 4 then leave    /* user pushed PF3  */
   etc....
end
 
DISCLAIMER:  I have never used this method.  I always set a variable
to either "SCAN" or "ALL" and ref it in the MODEL:
)MODEL ROWS(&scanrall)
 
 
Raymond Andrews <darksky@postoffice.att.net> wrote:
 
>I am trying to display the contents of a temporary table and allow the user to
>use search arguments.  I read in records from a file using compound variables.
>Then I set the table's fields to values in the record and add a row to the
>table.
 
>I then set the search arguments to '*' and use tgsarg, which is supposed to
>display all the records in the table. (The panel definition has ROWS(SCAN)in
>the )MODEL section).  When the panel is displayed it only shows 1 record.  The
>message usually reads "ROW 3 of 8' so I know the table has more rows.
 
>The panel has 3 selection fields all preset to '*' in the REXX procedure.  If
>the user changes them on the panel, then no records are displayed.  If I
change
>them back to  '*', then the 1 record returns.
 
>I have tried the routine with a permanent table with the same results.
 
>Any suggestions would be GREATLY appreciated.
 
>Thanks.
 
 
Frank Clarke
Tampa Area REXX Programmers' Alliance
Member of the REXX Language Association
Join us at http://www.rexxla.org
(Remove the currency symbol before replying.)