HP3000-L Archives

October 1999, Week 2

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:
"VANCE,JEFF (HP-Cupertino,ex1)" <[log in to unmask]>
Reply To:
VANCE,JEFF (HP-Cupertino,ex1)
Date:
Wed, 13 Oct 1999 13:27:35 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines)
...
> ?? read file  (get first record into variables)
> ?? while not eof
>     ( set file equations and set some variables  then run report )
> ??    read file (get next record into variables)
> ??    end_while

==========
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)
   ...run report
endwhile
deletevar record,user_code,email_add,eof
==========

If this script is named DOIT you invoke it as:
  :doit <filename

Jeff Vance, CSY

ATOM RSS1 RSS2