HP3000-L Archives

October 1999, 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:
Kevin O'Sullivan <[log in to unmask]>
Reply To:
Kevin O'Sullivan <[log in to unmask]>
Date:
Tue, 19 Oct 1999 13:32:18 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (50 lines)
Hi all,

I followed this thread with interest and on trying out one of the techniques
this is the result I get :-

:PRINT DOIT
setvar eof finfo(HPSTDIN,'eof')
while setvar(eof,eof-1) > 0 do
   input record
   setvar user_code word(record)
   setvar email_add word(record,,2)
   echo !user_code !email_add
endwhile
deletevar record,user_code,email_add,eof
:
:PRINT DATA
john         [log in to unmask]
kevin        [log in to unmask]
bill           [log in to unmask]
:
:DOIT < DATA
john [log in to unmask]
kevin [log in to unmask]
:
Any reason why I'm missing the last record in the file ?

Thanks in advance,

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Kevin O'Sullivan                        Cosworth Racing Limited,  -
- Racing Systems Department               The Octagon,              -
-                                         St James Mill Road,       -
-                                         Northampton, England,     -
-                                         NN5 5RA.                  -
-                                         Tel: +44 (0) 1604 598488  -
- mailto:[log in to unmask] Fax: +44 (0) 1604 598506  -
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The views expressed above are mine entirely and in no way represent
those of my employer.



**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the email administrator - [log in to unmask]

**********************************************************************

ATOM RSS1 RSS2