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, peter.w...@ttc.ca <peter.w...@ttc.ca>: > 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:ib...@listserv.uark.edu] On > Behalf Of Wandschneider, Scott > Sent: March 23, 2009 12:54 > To: IBMVM@LISTSERV.UARK.EDU > 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 || :: > scott.wandschnei...@infocrossing.com **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