Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

TBDISPL gives immediate RC=8 without displaying the table

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Grant Ward Able

New User


Joined: 22 Jul 2008
Posts: 8
Location: London

PostPosted: Wed Jul 23, 2008 4:18 pm    Post subject: TBDISPL gives immediate RC=8 without displaying the table
Reply with quote

After doing a DISPLY PANEL(xxx) I place my cursor in a field and press a PF key. In my REXX exec, I determine that PF04 has been pressed and get the fieldname. Then I do a TBOPEN tabname (rc=0) followed by TBDISPL tabname PANEL(panid). This immedialetly gives me RC=8 without displaying the panel at all.

If I remove the DISPLAY PANEL(xxx), then my TBDISPL tabname PANEL(panid) works fine!

I am at a loss to understand or correct this - any help gratefully accepted.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 23, 2008 5:10 pm    Post subject:
Reply with quote

Have you tried running with TRACE I from just before the first panel display to see what's going on, and also the the panel trace utility is a good one that has dug me out of the brown stuff a few times.
Code:

"Ispexec Control Errors Return"

"Free  fi(ISPDPTRC)"
"Del   'trace output dataset'"
"Alloc fi(ISPDPTRC) Da('trace output dataset') NEW TRACKS SPACE(5 5)
   Recfm(V B) Lrecl(255)"

"ISPDPTRC Panel(panel name)"
"Ispexec display panel(panel name)"
"ISPDPTRC VIEW"
"ISPDPTRC END"
"Free  fi(ISPDPTRC)"


Also, I think there is a thread recently posted that uses messages to tell you more error info when displaying panels.
Back to top
View user's profile Send private message
Grant Ward Able

New User


Joined: 22 Jul 2008
Posts: 8
Location: London

PostPosted: Wed Jul 23, 2008 7:17 pm    Post subject:
Reply with quote

Yes I have tried TRACE I. This shows everything working correctly up until the ISPEXEC TBDISPL, where the respone is RC=8 although the panel was never displayed. Something interesting to note is that I have extar data (rubbish) at the end of the panel in my ISPDPTRC. This is 3 lines from my EXEC itself.

TLD1 DspI MQMQQMGR |?_+ +!MQM8+
TLD1 DspI MQMQQMGR |?_+ +!MQM9+
TLD1 DspI MQMQQMGR +?_+ +!MQ34+
TLD1 DspI MQMQQMGR |?_+ +!MTL1+
TLD1 DspI MQMQQMGR |?_+ +!MTV1+
TLD1 DspI MQMQQMGR |?_+ +!MTV2+
TLD1 DspI MQMQQMGR |?_+ +!MQ30+
TLD1 DspI MQMQQMGR 2?_+ +!MQ31+
TLD1 DspI MQMQQMGR |?_+ +!MQ32+
TLD1 DspI MQMQQMGR |?_+ +!MQ33+
TLD1 DspI MQMQQMGR |?_+ +!MQ35+
TLD1 DspI MQMQQMGR |?_+ +!MTE1+
TLD1 DspI MQMQQMGR + .000041.retc = RC
TLD1 DspI MQMQQMGR | .000042.exit
TLD1 DspI MQMQQMGR | .000043.

TLD1 DspI MQMQQMGR --------------- Screen=27x80 Cursor=2/11 Key=END
TLD1 SvcR 8 TBDISPL MQDEFTQM PANEL(MQMQQMGR)
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2051
Location: Silicon Valley

PostPosted: Wed Jul 23, 2008 8:37 pm    Post subject: Reply to: TBDISPL gives immediate RC=8 without displaying th
Reply with quote

Try using "CONTROL DISPLAY SAVE" and "CONTROL DISPLAY RESTORE" before and after the TBDISPL
Back to top
View user's profile Send private message
Grant Ward Able

New User


Joined: 22 Jul 2008
Posts: 8
Location: London

PostPosted: Fri Aug 01, 2008 4:34 pm    Post subject:
Reply with quote

No joy using the CONTROL service either. ZVERB, ZERRSM, ZERRLM are all empty, so I have no idea what is happening.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2051
Location: Silicon Valley

PostPosted: Fri Aug 01, 2008 9:50 pm    Post subject: Reply to: TBDISPL gives immediate RC=8 without displaying th
Reply with quote

Is there a relationship between the fieldname from the DISPLAY and the table?
Back to top
View user's profile Send private message
Grant Ward Able

New User


Joined: 22 Jul 2008
Posts: 8
Location: London

PostPosted: Fri Aug 01, 2008 9:55 pm    Post subject: Reply to: TBDISPL gives immediate RC=8 without displaying th
Reply with quote

No, there is no relationship. The table name is MQMQQMGR and the field in the table are opt and defqmgr
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2051
Location: Silicon Valley

PostPosted: Fri Aug 01, 2008 10:19 pm    Post subject: Reply to: TBDISPL gives immediate RC=8 without displaying th
Reply with quote

Use dialog test (ISPF option 7):
1. use option 8 (breakpoints), and define a breakpoint for TBDISPL.
2. use option 1 to start your program. it will stop at your breakpoint
3. verify your TBDISPL command is formatted correctly.
4. examine other program variables
5. use option 4 to display the table info.
Back to top
View user's profile Send private message
cvnlynn

New User


Joined: 14 Jun 2017
Posts: 21
Location: US

PostPosted: Thu Jun 22, 2017 11:46 pm    Post subject:
Reply with quote

I would like to know, where do you put this code in ? In the panel or in the CLIST program ? Thanks.

"Ispexec Control Errors Return"

"Free fi(ISPDPTRC)"
"Del 'trace output dataset'"
"Alloc fi(ISPDPTRC) Da('trace output dataset') NEW TRACKS SPACE(5 5)
Recfm(V B) Lrecl(255)"

"ISPDPTRC Panel(panel name)"
"Ispexec display panel(panel name)"
"ISPDPTRC VIEW"
"ISPDPTRC END"
"Free fi(ISPDPTRC)"
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1771
Location: Bloomington, IL

PostPosted: Fri Jun 23, 2017 5:04 am    Post subject:
Reply with quote

Do not revive aa nine-year-old; start a new thread for your questions.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 Loading data to table gives wrong for... Raghu navaikulam DB2 19 Thu Jul 13, 2017 2:11 pm
No new posts Reg:Displaying the particular month o... bhavana yalavarthi All Other Mainframe Topics 4 Sat Jul 08, 2017 8:13 pm
No new posts unload data from table with lob columns farhad_evan DB2 1 Sat Apr 22, 2017 1:32 pm
No new posts Data replication from multiple Db2 ta... kishpra DB2 9 Mon Mar 27, 2017 9:58 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us