Jeff Vance wrote:
>
> 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
and I just wrote:
setvar file_eof finfo("hpstdin","eof")
while setvar (file_eof,file_eof-1) > 0
input file_rec
setvar user_code str("!file_rec",1,8)
setvar email_add str("!file_rec",9,30)
run yourprog
endwhile
Spooky! ...although Jeff did clean up after himself... :-)
+-------------------------------------------------------------------+
My mind is my own, as are my ideas and opinions.
My heart, body, and soul, however, all belong to others. Tim.
+-------------------------------------------------------------------+
Tim Ericson tericson DenKor Dental Management Corp.
Sr. Systems Analyst at denkor 503-526-4440 (my direct number)
(& Systems Manager) dot com http://www.denkor.com
Programming HP3000s since 1983! Quality dental care since 1970!
+-------------------------------------------------------------------+
UDCs and Command Files: http://www.denkor.com/hp3000/command_files
+-------------------------------------------------------------------+
|