Yep, I agree. I just haven't had time (yet) to "pretty it up". Perhaps this morning I'll get to it.
David Wakser -----Original Message----- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Kris Buelens Sent: Wednesday, July 02, 2008 12:35 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Best method What if someone sends a vicious PROFILE EXEC to your server? you should check who sent something before blindly receiving it. Or check what was sent and only receive The do-loop checking rdr files can be made much simpler too: Check_Receive: 'EXECIO * CP (STEM AA. Q RDR * ALL NOHOLD' do i=2 to aa.0 parse var aa.i sender filenum .... if wordpos(sender,validsenders)=0 then 'CP CH R' filenum 'HOLD' else do 'EXEC RECEIVE .... 'EXEC FT22POW ... 'ERASE ... end end And, as Rob points out: this do-loop handles all RDR files, no need for the +2 in WAKEUP.