HP3000-L Archives

February 2002, Week 4

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:
Donald Frantum <[log in to unmask]>
Reply To:
Donald Frantum <[log in to unmask]>
Date:
Fri, 22 Feb 2002 12:28:17 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (26 lines)
No matter what I do, I am still getting an END OF FILE at 10000 records.

Since using the FILE POIDET=POIDET.GRP,NEW;DISC=500000 command, I am no
longer getting errors at the end of the file.

Could there be a problem when using HPSTDIN in the following?

setvar _my_eof finfo(HPSTDIN,"eof")
setvar _my_i 0
while setvar(_my_eof,_my_eof-1) >= 0
input _my_rec
setvar _my_rec_4 str(_my_rec,1,4)
setvar _my_rec_len len(_my_rec)
setvar _my_rec_rest str(_my_rec,11,_my_rec_len-11)
setvar _my_i _my_i + 1
setvar _my_i_str rht('000000'+rtrim(ltrim("!_my_i")),6)
echo !_my_rec_4!_my_i_str!_my_rec_rest
endwhile


Thanks in advance,
Donald

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

ATOM RSS1 RSS2