Sergio -- The problem here is that you ARE getting the output of your
command -- but what you want to capture is the asynchronous response to that
command. In other words -- the CP SEND worked fine, and the command ended
-- but what you wanted to capture was the response from VTAM that followed
after the CP SEND command ended.
The common way to do this is using WAKEUP (IUCVMSG -- setting CPCONIO to
IUCV, and looping to capture the response.. something like this:
'CP SET SECUSER VTAM *'
'CP SET CPCONIO IUCV'
'CP SEND VTAM VTAM D NET.APPLS'
Do Forever
'WAKEUP (IUCVMSG'
If rc = 5 Then Do
Parse pull msg
Parse var msg ........
/* Do something with output - make sure it's from VTAM, etc */
End
Else Exit
End
Just a very rough sample - but hopefully enough to get you started. You
can also use PIPE and STARMSG, but I'm less familiar with using that method.
Hopefully this is enough to get you started!
Scott Rohling
On Thu, Apr 22, 2010 at 9:01 AM, Sergio Lima <[email protected]>wrote:
> Hello Mr. Scott,
>
> First, thanks very much from your help, and other colleagues of this list,
> and sorry from delay this response.
> I tested your sample here, and this is wath we need.
> For CMS commands, ok, for CP commands, also ok, but,
> We need something like this :
>
> /* */
> TRACE R
> "CP SET SECUSER VTAM * "
> 'PIPE CP SEND VTAM VTAM D NET,APPLS | STEM OUTPUT.'
> SAY OUTPUT.0
> DO I = 1 TO OUTPUT.0
> SAY SUBSTR(OUTPUT.I,1,8)
> QUEUE OUTPUT.I
> 'EXECIO 1 DISKW' VTAM RESULT A
> END
> "CP SET SECUSER VTAM OPERATOR "
>
> Because, need monitoring the I/O buffers of VTAM, and others.
>
> When execute the exec above, the OUTPUT of the command is not wrote in my
> CMS file.
>
> Can you help please ?
>
> Thanks very much,
>
>
>
>
> *Sérgio Lima Costa*
>
> *sergio.co...@*grvsolutions <[email protected]>*.com.br*
>
>
> *Arquitetura e Suporte *
>
> GRV Solutions
>
> Tel.: +55 (11) 4152-9398
>
> www.grvsolutions.com.br
>
>
>
>
> ------------------------------
> Date: Fri, 12 Mar 2010 08:54:05 -0700
> From: [email protected]
>
> Subject: Re: Question About Read console output under REXX
> To: [email protected]
>
> 'PIPE CMS command | STEM OUTPUT.'
> 'PIPE CP command | STEM OUTPUT.'
>
> Do i = 1 to output.0
> Say output.i
> End
>
> for starters
>
> Scott
>
> On Fri, Mar 12, 2010 at 8:43 AM, Sergio Lima <[email protected]>wrote:
>
> Hello List,
>
> Years ago, We had a REXX program that gove a CMS (query names), or a CP
> command (CP q rdr all) , and next read the output of
> this command in my program, for example : If we need look the spool files,
> my program process this, and look how many files had,
> or list the users logged in alphabetic order.
> Unfortunatelly We lost this samples programs, so, someone have anything
> like this ?
>
> Thanks very much.
>
> Sergio Lima Costa
> System Programmer
> GRV Solutions
> Sao Paulo - Brazil
>
> ------------------------------
> Transforme-se em personagens engraçados. Conheça o novo site de I Love
> Messenger.<http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline>
>
>
>
> ------------------------------
> Veja todos os seus e-mails de diferentes contas com apenas um login. Veja
> como.<http://www.windowslive.com.br/public/tip.aspx/view/16?product=1&ocid=Hotmail:MSN:Hotmail:Tagline:1x1:semLinha>
>
