Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 4650
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
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts ISREDIT MACRO NOT WORKING! :cry: kirank889 TSO/ISPF 3 Thu Aug 03, 2017 5:46 pm
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us