IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

TBDISPL gives immediate RC=8 without displaying the table


 
IBM Mainframe Forums -> TSO/ISPF
Post new topic   This topic is locked: you cannot edit posts or make replies.
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
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: 8793
Location: Welsh Wales

PostPosted: Wed Jul 23, 2008 5:10 pm
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
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

Global Moderator


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

PostPosted: Wed Jul 23, 2008 8:37 pm
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
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

Global Moderator


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

PostPosted: Fri Aug 01, 2008 9:50 pm
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
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

Global Moderator


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

PostPosted: Fri Aug 01, 2008 10:19 pm
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: 31
Location: US

PostPosted: Thu Jun 22, 2017 11:46 pm
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: 1788
Location: Bloomington, IL

PostPosted: Fri Jun 23, 2017 5:04 am
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. All times are GMT + 6 Hours
Forum Index -> TSO/ISPF
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Need to read duplicate rows from tabl... DB2 3
No new posts Hex Table COBOL Programming 2
No new posts Catalog table SYSSTATSFEEDBACK DB2 2
No new posts Global temporary table DB2 1
No new posts Export columns from DB2 table with pi... DB2 14

Back to Top