This could work, if ....
WAKEUP must be started before one issues the SMSG command to RSCS. So:
'WAKEUP +0 (IUCVMSG'
'CP SM RSCS QUERY ....
do forever
"WAKEUP +"wait "(IUCVMSG QUIET"
....
end
'WAKEUP RESET'
And, seconds1 = time(seconds)
should better be seconds1 = time('Seconds')
2009/3/23, [email protected] <[email protected]>:
> 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.
>
--
Kris Buelens,
IBM Belgium, VM customer support
