This will do it:
/* REXX */
address "COMMAND"
"CP SET MSG IUCV"
"PIPE (ENDCHAR ?) STARMSG *MSG CP SMSG RSCS QUERY LINKS ",
"| specs 17-* 1", /* Drop the first 16 chars */
"| STEM REC.",
"| LITERAL +5 | DELAY",
"| PIPESTOP"
say "HowMany" rec.0
Do i = 1 to rec.0
say rec.i
End
exit
/Fran Hensler at Slippery Rock University of Pennsylvania USA for 48 years
mailto:f...@zvm.sru.edu http://zvm.sru.edu/~fjh +1.724.794.6172
"Yes, Virginia, there is a Slippery Rock"
--------------------------------------------------------------------------
On Wed, 20 Jul 2011 10:28:49 -0500 =?iso-8859-1?Q?Richard_Baek?= said:
>I'm writing a REXX exec in which I'm issuing a command 'SM RSCS Q LINKS'
>and I'd like to capture the response back from RSCS. Does anyone know how
>to do this? Maybe you have an example of the code I need to use?