Note that you can also add a message tag to the RSCS command, so that you
can match the command with the asynchronous replies by prefixing the command
with "(ML.tag)".
SM RSCS (ML.mytag) QUERY SYSTEM QUEUE
SM RSCS (ML.tag2) QUERY SYSTEM
See also "HELP RSCS CRI"
Ronald van der Laan
s.com
(925) 926-3179 (w)
(925) 323-2070 (c)
IM: VMBearDad (AIM), mbhcpcvt (Y!)
The IBM z/VM Operating System wrote on 07/20/2011
02:45:41 PM:
> From: Scott Rohling
> To: IBMVM@LISTSERV.UARK.EDU
> Date: 07/20/2011 02:46 PM
> Subject: Re: Capturing response from SCS
> Sent by:
It's a plumbing thing .. HELP PIPE COMMIT ..
commit 0 requests that the commit level of the TCOMMT stage be raised to
0. The TCOMMT stage is then suspended until all the other stages in the
pipeline have committed at least to level 0 or have ended. The return code
from COMMIT is then set to the
What is line 78 supposed to do?
'Commit 0' /* hot to trot */
/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"
--
CUSER *'),
with . '15'x . '15'x suinfo '15'x
Parse var suinfo . whoisit .
If whoisit<>'not'
then Parse value DiagRc(8,'SET SECUSER' do_me 'OFF') with .
Else whoisit = ''
End
'Commit
/*
*
* ROUTINE: RSCS REXX (pipeline driver for RSCS 3.1)
*
* PURPOSE: Pipeline driver to issue RSCS 3.1 command and trap
*output. No inputs; output sent to primary output.
*
* PACKAGE: USERTOOL
*
*
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"
Hi, Richard.
Go to the IBM VM download site at
http://www.vm.ibm.com/download/packages/ and get the NETLIST package. It
will show you how to capture the responses back from RSCS and may even
do what you want right out of the box.
Have a good one, too.
DJ
On 07/20/2011 10:28 AM, Richard Baek w
