Looks okay to me. I have a lot of stuff like that. It's a tool, not a piece of art!
On Tue, Jul 1, 2008 at 1:07 PM, Huegel, Thomas <[EMAIL PROTECTED]> wrote: > Not pretty, but it has worked for a very long time. Sort of like an old > horse she may not look like much, but she still plows the field. > > -----Original Message----- > *From:* The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] > Behalf Of *Kris Buelens > *Sent:* Tuesday, July 01, 2008 11:59 AM > *To:* IBMVM@LISTSERV.UARK.EDU > *Subject:* Re: Best method > > Ugh, such ugly code. Have a look at the TCVM1 package to learn some REXX > coding techniques. It is an HTML selfstudy. > > 2008/7/1 Huegel, Thomas <[EMAIL PROTECTED]>: > >> Not many comments to explain the code but here is an example. >> >> WAKEUP RESET >> CP SET IMSG IUCV >> CP SET MSG IUCV >> . >> . >> . >> . >> . >> >> DATEOK: >> FLDATE = RIGHT(DATE(S,TDATE,U),6) >> SET CMSTYPE HT >> TELL OPERATOR AT NODEID GET LOG FLDATE >> WAKEUP '+00:00:15 (IUCVMSG' >> IF RC = 2 THEN SIGNAL ERREXT3 >> PULL RESPONSE >> PARSE VAR RESPONSE MTYPE . MNO . SPNO . >> IF FIND(RESPONSE,'DMSDSK002E') ¬=0 THEN SIGNAL ERREXT1 >> WAKEUP '+00:00:15 (RDR ' >> IF RC = 2 THEN SIGNAL ERREXT3 >> DO FOREVER >> SPNO = FIND(RESPONSE,'RDR FILE') >> IF SPNO ¬= 0 THEN DO >> SPNO = SPNO + 2 >> SIGNAL PEEKIT >> END >> WAKEUP '+00:00:10 (IUCVMSG' >> IF RC = 2 THEN SIGNAL ERREXT3 >> PULL RESPONSE >> PARSE VAR RESPONSE MTYPE . MNO . SPNO . >> END >> PEEKIT: >> DESBUF >> SPNO = WORD(RESPONSE,SPNO) >> QUEUE COMMAND SET RESERVED 1 HI SEELOG NODEID TDATE >> QUEUE COMMAND SET PF15 FFILE NODEID FLDATE >> PEEK SPNO '(FOR * PROFILE PROFDISZ' >> PURGE RDR SPNO >> EXIT: >> WAKEUP RESET >> SET MSG ON >> SET IMSG ON >> EXIT >> >> -----Original Message----- >> From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] >> Behalf Of Wakser, David >> Sent: Tuesday, July 01, 2008 9:10 AM >> To: IBMVM@LISTSERV.UARK.EDU >> Subject: Best method >> >> >> All: >> >> What is the best method to code, for a SVM, a wait for a file to >> arrive in its reader? >> >> I have a (very old) EXEC that has a "do forever" loop with a >> "EXECIO * CP (STEM" aa. "STRING CP Q RDR * ALL" command followed by a >> SLEEP when no files are found. Is there a better method of "waking up" >> an EXEC when a RDR file arrives? >> >> Thanks, in advance. >> >> David Wakser >> > > > > -- > Kris Buelens, > IBM Belgium, VM customer support > > -- Mark Pace Mainline Information Systems
