View previous topic :: View next topic
|
Author |
Message |
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. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
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) |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Try using "CONTROL DISPLAY SAVE" and "CONTROL DISPLAY RESTORE" before and after the TBDISPL |
|
Back to top |
|
|
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. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Is there a relationship between the fieldname from the DISPLAY and the table? |
|
Back to top |
|
|
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 |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
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)" |
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Do not revive aa nine-year-old; start a new thread for your questions. |
|
Back to top |
|
|
|