I have a TBDISPL statement in my CLIST. I check the return codes and accordingly take necessary action.I use a TBPUT to process the selected rows and then use TBDISPL without a panel name and message id to process the pending rows. When I select more than 2 rows, I get a "Recursive CLIST Error" on the TBDISPL statement. Any idea as to what might cause this error and how it can be corrected?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
CLIST Error
- Thread starter SowKan
- Start date
You are operating on the value of "ztdsels", correct? ZTDSELS gives the number of rows selected, but many people fail to realize that the first row is delivered to the dialog before you get a chance to check its value, so its meaning is "...including this row". You should not do a TBDISPL when ztdsels=1. When I code such a dialog (in REXX, of course) the code at the bottom of the loop is
When ztdsels = 1, you have already been fed the last row and you should not attempt to retrieve another.
Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
Code:
if ztdsels > 1 then "TBDISPL" $tn$Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
- Status