Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
TBDISPL RC=20

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
oerdgie

New User


Joined: 22 Nov 2007
Posts: 55
Location: Germany

PostPosted: Tue Mar 02, 2010 8:29 pm    Post subject: TBDISPL RC=20
Reply with quote

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. icon_sad.gif
Back to top
View user's profile Send private message

MBabu

Active User


Joined: 03 Aug 2008
Posts: 401
Location: Mumbai

PostPosted: Tue Mar 02, 2010 11:30 pm    Post subject:
Reply with quote

print out variables ZERRSM and ZERRLM. They may hold the answer
Back to top
View user's profile Send private message
oerdgie

New User


Joined: 22 Nov 2007
Posts: 55
Location: Germany

PostPosted: Wed Mar 03, 2010 1:56 am    Post subject: Reply to: TBDISPL RC=20
Reply with quote

Thanks a lot ! icon_biggrin.gif

I found the error, it was detected in the panel definition.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Trouble Scrolling TBDISPL in my Panel thesumitk TSO/ISPF 6 Mon Sep 09, 2013 3:03 pm
No new posts Forcing a single (or no) selection wi... PeterHolland TSO/ISPF 5 Thu Aug 30, 2012 4:15 pm
No new posts TBDISPL for width > 80 ravikanth TSO/ISPF 6 Thu Feb 17, 2011 2:08 am
No new posts Two TBDISPL Questions superk TSO/ISPF 5 Sat Jun 13, 2009 12:34 am
No new posts How to use TBDISPL service? samedesh TSO/ISPF 3 Wed Jun 03, 2009 6:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us