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: [email protected] 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: [email protected] 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
