|
View previous topic :: View next topic
|
| Author |
Message |
oerdgie
New User
Joined: 22 Nov 2007
Posts: 64
Location: Germany
|
|
|
|
Hi,
I have a problem with TBDSIPL when I select more then one row.
This is the Coding for a simpe test :
| Code: |
ADDRESS ISPEXEC "TBDISPL btab PANEL(LAMBT) ROWID(rid)"
do while rc < 8
if rc >= 8 then leave
do while ztdsels > 0
select
when sel = 'S' then
say rid
otherwise
nop
end
if ztdsels > 1 then
ADDRESS ISPEXEC "TBDISPL btab"
else
ztdsels = 0
end
"TBDISPL btab PANEL(LAMBT) ROWID(rid)"
end |
Panel definition:
| Code: |
%S COBOL-Structur LAM-BT
+- -------------------------------------
)MODEL ROWS(ALL) CLEAR(SEL)
$Z+"def
)INIT
.ZVARS = '(sel)' |
When I trace the coding I got this error :
38 *-* if ztdsels > 1
>>> "1"
*-* then
39 *-* ADDRESS ISPEXEC "TBDISPL btab"
>>> "TBDISPL btab"
+++ RC(20) +++
Can anybody help me, I've no idea what the problem is.  |
|
| Back to top |
|
 |
MBabu
Active User
Joined: 03 Aug 2008
Posts: 400
Location: Mumbai
|
|
|
|
| print out variables ZERRSM and ZERRLM. They may hold the answer |
|
| Back to top |
|
|
oerdgie
New User
Joined: 22 Nov 2007
Posts: 64
Location: Germany
|
|
|
|
Thanks a lot ! 
I found the error, it was detected in the panel definition. |
|
| Back to top |
|
|
|
|
