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
