TBDISPL gives immediate RC=8 without displaying the table

Grant Ward Able · New User Joined: 22 Jul 2008 Posts: 8 Location: London

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.

expat · Posted: Wed Jul 23, 2008 5:10 pm

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.

Grant Ward Able · New User Joined: 22 Jul 2008 Posts: 8 Location: London

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)

Pedro · Posted: Wed Jul 23, 2008 8:37 pm

Try using "CONTROL DISPLAY SAVE" and "CONTROL DISPLAY RESTORE" before and after the TBDISPL

Grant Ward Able · New User Joined: 22 Jul 2008 Posts: 8 Location: London

No joy using the CONTROL service either. ZVERB, ZERRSM, ZERRLM are all empty, so I have no idea what is happening.

Pedro · Posted: Fri Aug 01, 2008 9:50 pm

Is there a relationship between the fieldname from the DISPLAY and the table?

Grant Ward Able · New User Joined: 22 Jul 2008 Posts: 8 Location: London

No, there is no relationship. The table name is MQMQQMGR and the field in the table are opt and defqmgr

Pedro · Posted: Fri Aug 01, 2008 10:19 pm

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.

cvnlynn · New User Joined: 14 Jun 2017 Posts: 31 Location: US

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)"

Akatsukami · Posted: Fri Jun 23, 2017 5:04 am

Do not revive aa nine-year-old; start a new thread for your questions.