Hello Mike,
Sorry, now run ok, look please :
VTAM RESULT A1 V 89 Trunc=89 Size=10 Line=0 Col=1 Alt=0
====>
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
00000 * * * Top of File * * *
00001 *SCIF VTAM VTAM : IST097I DISPLAY ACCEPTED
00002 *SCIF VTAM VTAM : IST350I DISPLAY TYPE = APPL MAJ NODES/NAMES
00003 *SCIF VTAM VTAM : IST089I VTAMSEG TYPE = APPL SEGMENT , AC
00004 *SCIF VTAM VTAM : IST360I APPLICATIONS:
00005 *SCIF VTAM VTAM : IST080I ISTATA00 CONCT ISTNOP ACTIV
00006 *SCIF VTAM VTAM : IST080I MEGAVM ACT/S
00007 *SCIF VTAM VTAM : IST089I MEGAAPP2 TYPE = APPL SEGMENT , AC
00008 *SCIF VTAM VTAM : IST360I APPLICATIONS:
00009 *SCIF VTAM VTAM : IST080I GRVCMSZ ACT/S
00010 *SCIF VTAM VTAM : IST314I END
00011 * * * End of File * * *
It'all that We need,
Thanks again, and best regards,
Sorry again for the trouble
Sergio
Date: Thu, 22 Apr 2010 13:25:00 -0400
From: michaelcof...@mccci.com
Subject: Re: Question About Read console output under REXX
To: IBMVM@LISTSERV.UARK.EDU
Using that exact code (which isn’t my preferred way, but if it works and you
are happy…..), add the following after the EXECIO DISKW statement:
Say Msg
That will write the msg to the console.
PS: This command, as written, will never end until you press the enter key (or
something other than an IUCV msg wakes up WAKEUP). Assuming no reponse will
take longer than 5 seconds, change WAKEUP as follows:
‘WAKEUP +00:00:05 (IUCVMSG QUIET NOREAD’
QUIET will keep the WAKEUPs quiet. NOREAD will prevent a VM READ from being
issued if you press ENTER. The +00:00:05 says wakeup in 5 seconds if nothing
else (like an IUCVMSG) wakes you up first. The timer pop will yield RC=2
causing you to leave the FOREVER loop and EXIT the exec with the ELSE EXIT
clause.
-Mike
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf
Of Sergio Lima
Sent: Thursday, April 22, 2010 12:26 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Question About Read console output under REXX
Hello Mr. Scott,
We already test this sample here, but still don't run well,
We write this :
/* */
TRACE R
'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
queue msg
'EXECIO 1 DISKW' VTAM RESULT A
END
ELSE EXIT
END
But, the response of my command don't return.
I wait few seconds, and my file was wrote with this data :
VTAM RESULT A1 V 87 Trunc=87 Size=4 Line=0 Col=1 Alt=0
===>
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0000 * * * Top of File * * *
0001 *SCIF VTAM VTAM : IST663I IPS SRQ REQUEST FROM ISTAPNCP FAILED,
0002 *SCIF VTAM VTAM : IST664I REAL OLU=CEF.CICHABE ALIAS D
0003 *SCIF VTAM VTAM : IST889I SID = D5CBC1D3CE560499
0004 *SCIF VTAM VTAM : IST314I END
Another words, this data is the result of another thing.
Do you seee some mistake here ?
I understand, that the WAKEUP (IUCVMSG receive the RC = 5 all times that my
virtual machine receive one messagem from VTAM machine correct?
If this is ok, why the result of my DISPLAY don't run ?
Thanks again.
Sergio
Date: Thu, 22 Apr 2010 09:23:20 -0600
From: scott.rohl...@gmail.com
Subject: Re: Question About Read console output under REXX
To: IBMVM@LISTSERV.UARK.EDU
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 <sergiovm...@hotmail.com> 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.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: scott.rohl...@gmail.com
Subject: Re: Question About Read console output under REXX
To: IBMVM@LISTSERV.UARK.EDU
'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 <sergiovm...@hotmail.com> 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.
Veja todos os seus e-mails de diferentes contas com apenas um login. Veja como.
Quer transformar suas fotos em emoticons para o Messenger? Clique aqui e veja
como.
_________________________________________________________________
Você sabia que seu navegador te ajuda a ficar longe de vírus? Leia mais sobre
isso.
http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500
