HP3000-L Archives

July 2002, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Paul H. Christidis" <[log in to unmask]>
Reply To:
Date:
Thu, 18 Jul 2002 12:16:09 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (78 lines)
Ray,

You can merely set up a 'while' loop as follows:

:...
:Remote file x=tmp:$back
:setvar condition1 true
:while condition1 do
: remote echo setvar remote_eof !![finfo("ZAP","eof")] >*x
: print tmp
: XEQ tmp
: if remote_eof > 7000 then
:  <process file....>
: else
:  <evaluate if condition1 is still true>
:  if contidion1 then
:   pause 60
:  endif
: endif
:endwhile
:...

You'd also need to account for the situation where the remote file does not
exist or when a permanent 'tmp' file already exists.


Regards
Paul Christidis




Pretty cool idea, but the value in TMP after execution is:

setvar remote_eof 14

Which, after you follow it through, is exactly what it should be, but that
won't help me either.

Ray Shahan

"Life is what happens while you're busy making other plans", John Lennon

> -----Original Message-----
> From:         [log in to unmask] [SMTP:[log in to unmask]]
> Sent:         Thursday, July 18, 2002 1:43 PM
> To:           Shahan, Ray
> Cc:           [log in to unmask]
> Subject:           Re: [HP3000-L] DSLINE IF
>
>
> Let us try ONE more time:
>
>
> Try the following:
>
> Supposing that the DSLINE to the remote machine had been done as follows:
>
> :DSLINE X=rmthost.domain.org
> :remote hello ....
>
> Then do the following:
> :Remote file x=tmp:$back
> :remote echo setvar remote_eof !![finfo("ZAP","eof")] >*x
> :XEQ tmp
> :if remote_eof > 7000 then
> ....
> ...
>
> That should do it!!
>
> Regards
> Paul Christidis
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2