Here is part of some code I have to capture output from commands to put in the
file to browse.
If Substr(CMDINPUT,1,2) = 'SM' Then do
'pipe cp q s |', /* Q SET to get current MSG setting */
'split string /,/ |', /* Split at the comma */
'take 1 |', /* First line contains setting */
'var msg_setting' /* Store in variable */
'CP SET MSG IUCV' /* Force incoming messages to IUCV */
'pipe STARMSG 'CMDINPUT, /* Issue command using STARMSG */
'| specs 17-* 1', /* Drop the first 16 chars */
'| stem cap1.', /* Ouput the data to the stem */
'| literal +3 | delay', /* Delay for 3 seconds to get stuff */
'| PIPESTOP' /* Force the pipe stage to end */
'CP SET' msg_setting /* Reset msg to what it was */
'pipe stem cap1. | > CAP TEXT A' /* Put the output in a file */
'browse CAP TEXT A' /* Browse the file */
exit RC /* Exit the routine */
End
Paul Feller
AIT Mainframe Technical Support
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf
Of Wandschneider, Scott
Sent: Monday, March 23, 2009 11:54 AM
To: [email protected]
Subject: RSCS Query
I would like to issue an RSCS QUERY LINKS and "queue" the results so I can spin
through the response looking for information. Here is a snippet from an
experimental REXX EXEC. The results from the query are displayed back at my
terminal and the @HowMany variable is always zero. Any ideas?
Check_Links:
'pipe cp smsg RSCS query links | stem @Rec. '
@HowMany = @Rec.0
Say "HowMany" @HowMany
Do x = 1 to @HowMany
.
.
.
End /* DO */
Scott R Wandschneider
Senior Systems Programmer|| Infocrossing, a Wipro Company || 11707 Miracle
Hills Drive, Omaha, NE, 68154-4457|| ': 402.963.8905 || Ë:847.849.7223 || ::
[email protected] **Think Green - Please print responsibly**
Confidentiality Note: This e-mail, including any attachment to it, may contain
material that is confidential, proprietary, privileged and/or "Protected Health
Information," within the meaning of the regulations under the Health Insurance
Portability & Accountability Act as amended. If it is not clear that you are
the intended recipient, you are hereby notified that you have received this
transmittal in error, and any review, dissemination, distribution or copying of
this e-mail, including any attachment to it, is strictly prohibited. If you
have received this e-mail in error, please immediately return it to the sender
and delete it from your system. Thank you.
