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
 

 

CMD not working in )PROC section

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Unique

New User


Joined: 10 Jul 2007
Posts: 24
Location: Blore

PostPosted: Sun Aug 19, 2007 8:58 pm    Post subject: CMD not working in )PROC section
Reply with quote

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.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Sun Aug 19, 2007 9:55 pm    Post subject:
Reply with quote

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

O.
Back to top
View user's profile Send private message
Unique

New User


Joined: 10 Jul 2007
Posts: 24
Location: Blore

PostPosted: Sun Aug 19, 2007 10:03 pm    Post subject:
Reply with quote

&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)'
' ',' '
*,'?' )
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Mon Aug 20, 2007 12:42 am    Post subject:
Reply with quote

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

O.
Back to top
View user's profile Send private message
Unique

New User


Joined: 10 Jul 2007
Posts: 24
Location: Blore

PostPosted: Mon Aug 20, 2007 11:45 am    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu Aug 23, 2007 6:24 pm    Post subject: Reply to: CMD not working in )PROC section
Reply with quote

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:

Code:

/* REXX */                                             
"ISPEXEC LIBDEF ISPPLIB DATASET ID(ISPPLIB) STACK"     
"ISPEXEC SELECT PANEL(panelname)"                         
"ISPEXEC LIBDEF ISPPLIB"                               
Back to top
View user's profile Send private message
Unique

New User


Joined: 10 Jul 2007
Posts: 24
Location: Blore

PostPosted: Thu Aug 30, 2007 1:17 pm    Post subject:
Reply with quote

No luck.. icon_sad.gif
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 Jcl pram vs proc parms ashek15 JCL & VSAM 3 Thu Mar 30, 2017 6:50 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts SCRNAME not working on my mainframe? mrsidhu12 TSO/ISPF 7 Thu Sep 01, 2016 2:17 pm
No new posts 2 same CLIST pgm but with different n... boyti ko CLIST & REXX 5 Fri Jun 03, 2016 4:55 pm
No new posts REXX Screen not working due to LINKED... sundarkudos CLIST & REXX 1 Mon May 09, 2016 1:44 pm


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