The may be a better way, but when I did it I did it like this:
<snip>
"CP SMSG RSCS (ML."signature") QUERY FILES ON" printer "SHOW ID",
"FROMUSER FILENAME FILETYPE CLASS STATUS RECORDS RECSDONE FORM"
</snip>
...
<snip>
/**********************************************************************/
/* Receive the response from RSCS. */
/**********************************************************************/
wait = "00:00:25"
message_number = "0000"
do forever
seconds1 = time(seconds)
"WAKEUP +"wait "(IUCVMSG QUIET"
if rc = 2 | rc = 6 then leave
seconds2 = time(seconds)
new_wait = seconds2 - seconds1 + 5
wait = "00:00:"||right(new_wait,2,0)
parse pull . . . message_number message_line . m_sig mtype,
message_text
if m_sig ¬= signature then iterate
message_line = strip(message_line,l,0)
if mtype = "H1" | left(message_text,5) == " Link" then
message_text = delstr(message_text,1,1)
if message_number = "0001" then leave
else do
recs = recs + 1
line.recs = message_text
end
end
</snip>
Peter
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf
Of Wandschneider, Scott
Sent: March 23, 2009 12:54
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.
The information transmitted is intended only for the person or entity to which
it is addressed and may contain confidential and/or privileged material. Any
review retransmission dissemination or other use of or taking any action in
reliance upon this information by persons or entities other than the intended
recipient or delegate is strictly prohibited. If you received this in error
please contact the sender and delete the material from any computer. The
integrity and security of this message cannot be guaranteed on the Internet.
The sender accepts no liability for the content of this e-mail or for the
consequences of any actions taken on the basis of information provided. The
recipient should check this e-mail and any attachments for the presence of
viruses. The sender accepts no liability for any damage caused by any virus
transmitted by this e-mail. This disclaimer is property of the TTC and must
not be altered or circumvented in any manner.
