View previous topic :: View next topic
|
Author |
Message |
cs53033
New User
Joined: 22 Oct 2008 Posts: 5 Location: maidstone,uk
|
|
|
|
I'm using a panel to list a set of menu items:
)INIT
.HELP = SMTh0
.cursor = ZCMD
&PFKEY3 = &ZPF03
&ZPF03 = END
VPUT ( ZPF03 ) PROFILE
)PROC
&ZPF03 = &PFKEY3
VER (&zcmd,nb,list,0,1,2,3,4,5,6,7,8,9,'x'
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
1,'cmd(%TS7740B)'
2,'cmd(TS7740C)'
3,'cmd(TS7740CS)'
4,'cmd(%TS7740D)'
5,'cmd(%TS7740h)'
6,'cmd(%TS7740J)'
but it drops through this and out of the calling rexx.
After running this in 7.1 - with the panel - the cmds got executed, so am assuming I haven't included something in the calling rexx
Any hints welcome
Thanks, |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Does the calling program use "ISPEXEC SELECT PANEL(panname)"? |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
If the selection from the panel is coming from ZCMD and you are doing your VER on &ZCMD, wouldn't you want to do a VPUT (ZCMD) PROFILE rather than VPUT (ZPF03) PROFILE. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
I do not like panels that change my PF key settings. Those can be set by the user... and many people do.
And I especially do not like that you change it and save to the profile. That will likely affect other applications as well. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Learn how to use KEYLISTS. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
Back to top |
|
|
cs53033
New User
Joined: 22 Oct 2008 Posts: 5 Location: maidstone,uk
|
|
|
|
superk wrote: |
Does the calling program use "ISPEXEC SELECT PANEL(panname)"? |
Hi Kevin - yes it does |
|
Back to top |
|
|
cs53033
New User
Joined: 22 Oct 2008 Posts: 5 Location: maidstone,uk
|
|
|
|
cpuhawg wrote: |
If the selection from the panel is coming from ZCMD and you are doing your VER on &ZCMD, wouldn't you want to do a VPUT (ZCMD) PROFILE rather than VPUT (ZPF03) PROFILE. |
I altered this, but it had no effect
Are there any possible commands I should be using in the calling rexx |
|
Back to top |
|
|
cs53033
New User
Joined: 22 Oct 2008 Posts: 5 Location: maidstone,uk
|
|
|
|
If anyone has any examples of a menu within a panel being called from a REXX with the rexx code, that might be good to see how the experts do it. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
I think all you need in your rexx is the select statement, and for debugging, add a trace statement:
Code: |
trace('r')
Address ISPEXEC
"SELECT PANEL(yourpanl)"
|
Add a trace to TS7740B to make sure it is not being called and ending without showing anything.
You did not post your entire panel definition. Please show your )PROC section through to the end.
Your VER statement is missing right parenthesis.
Your TRANS statement is missing right parenthesis. |
|
Back to top |
|
|
cs53033
New User
Joined: 22 Oct 2008 Posts: 5 Location: maidstone,uk
|
|
|
|
Pedro wrote: |
I think all you need in your rexx is the select statement, and for debugging, add a trace statement:
Code: |
trace('r')
Address ISPEXEC
"SELECT PANEL(yourpanl)"
|
Add a trace to TS7740B to make sure it is not being called and ending without showing anything.
You did not post your entire panel definition. Please show your )PROC section through to the end.
Your VER statement is missing right parenthesis.
Your TRANS statement is missing right parenthesis. |
Thanks Pedro - after changing to SELECT PANEL........ from DISPLAY, my problems went away - DISPLAY always used to work ? |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
that's funny. The first response to your post recommended SELECT service and you responded that you were using it already on Thu Oct 23, 2008 1:49 pm.
Please read the advice you are reading carefully. |
|
Back to top |
|
|
|