CMD not working in )PROC section

Unique · New User Joined: 10 Jul 2007 Posts: 24 Location: Blore

Hi,
CMD stmt in select stmt is not working . can u guide if i have to add any stmt to invoke this

)PROC
&ZSEL = TRANS(TRUNC(&T,'.')
1,'CMD(%REXX1)'
2,'CMD(%REXX2)'
' ',' '
*,'?' )
but when i type TSO REXX1, my rexx routine invokes. I am sorry if its sounds simple.

ofer71 · Posted: Sun Aug 19, 2007 9:55 pm

What's in &T? Is it your command variable?

O.

Unique · New User Joined: 10 Jul 2007 Posts: 24 Location: Blore

&T is the select value in my panel

My panel is

)ATTR
@ TYPE(INPUT) INTENS(LOW)
)BODY
%PANEL1 -----------------
+
+
+ !Select the option %===>@T+
+
)PROC
VER(&T,NB,list,1,2,3)
&ZSEL = TRANS(TRUNC(&T,'.')
1,'CMD(%REXX1)'
2,'CMD(%REXX2)'
' ',' '
*,'?' )

ofer71 · Posted: Mon Aug 20, 2007 12:42 am

If you have z/OS 1.7, you can try the Panel Trace Command(ISPDPTRC).

O.

Unique · New User Joined: 10 Jul 2007 Posts: 24 Location: Blore

Hi,
This is how i fixed it.

In the panel ,i have changed
&ZSEL = TRANS(TRUNC(&T,'.')
1,'R1'
2,'R2'
)

In the Rexx ,after display , i have coded
"VGET &ZSEL SHARED"
"Address tso"
IF ZSEL = 'R1' then "REXX1"
ELSE "REXX2"

Suggestions welcome

superk · Posted: Thu Aug 23, 2007 6:24 pm

This original panel definition:

)ATTR
@ TYPE(INPUT) INTENS(LOW)
)BODY
%PANEL1 -----------------
+
+
+ !Select the option %===>@T+
+
)PROC
VER(&T,NB,list,1,2,3)
&ZSEL = TRANS(TRUNC(&T,'.')
1,'CMD(%REXX1)'
2,'CMD(%REXX2)'
' ',' '
*,'?' )

worked fine for me. My exec looks like this:

Unique · New User Joined: 10 Jul 2007 Posts: 24 Location: Blore

No luck..