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   Reply to topic    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: 2033
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: 2033
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: 2033
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
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 how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts Join of more than one table dibyendumandal11111 DB2 6 Mon Feb 13, 2017 11:36 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts Need Rexx Program to Load in to DB2 T... Hareesh Verma CLIST & REXX 22 Tue Sep 20, 2016 2:59 pm
No new posts Command UNIQUE CONSTRAINT on any tabl... rohanthengal DB2 2 Thu Aug 18, 2016 3:48 pm


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