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?

Reply via email to