The 256 recs is the size that the new file was built to be and qedit at some
point figured that it could fit the records into the variable file with a
filesize of 256. In this case it cannot. I'm still surprised that versions
from 1985 still work. I don't have any versions previous to 3.4 to test so
it was certainly interesting to look at.
A work around would likely be to text in the file, set keep var off, keep
under a new name, text in the fixed file and then keep variable.
That is just an educated guess.
Neil
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of John Pitman
Sent: May-08-12 6:24 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] qedit question
Neil,
Interesting part is the change in rec length...and count
NZBANK 256B VA 259 1000 1 512 2 *
QEDIT. Copyright Robelle Consulting Ltd. 1977,1985 (Version 3.4 ) /t nzbank
QEDITSCR 'Language' is now TEXT
259 lines in file
/kq nzbank11
NZBANK1.NZ.STOCK2K,OLD 1276B VA # of records=259 <<<<<<<1276 ??? 259
recs
Purge existing file [no]? Y
Fwrite Err: EOF
NZBANK1.NZ.STOCK2K,NEW 1276B VA # of records=256 <<<<<256 recs ??
/K cancelled!
Regards,
Its not a show stopper, so its not worth much work.
Thanks
John Pitman
-----Original Message-----
From: Neil Armstrong (Newsgroups) [mailto:[log in to unmask]]
Sent: Wednesday, 9 May 2012 1:36 AM
To: John Pitman; [log in to unmask]
Subject: RE: [HP3000-L] qedit question
Dear John,
I was going thru the source code and was trying to find ways to duplicate
and found the following in keep:
-6 << 3.4.: filesize was too small when lines were full >>
After that comment there is an adjustment to the filesize calculation.
I suspect that your var file is tightly packed and may have sequence
numbers. Peter's suggestion of texting unn may help. So it was an old bug
which was fixed, I cannot tell exactly the version it was fixed in sorry.
Sincerely,
Neil Armstrong
Robelle
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of John Pitman
Sent: May-08-12 2:31 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] qedit question
No unusual things in
listftemp,2
no numbers in file either, that I can see.
V@=
/t nzbank
QEDITSCR
'Language' is now TEXT
259 lines in file
/v@
QEDIT Version ( 3.4 ) Set Average 8 Set Addcurrent ON
Set Autoclear ON Set Batch OFF Set Check OFF
Set DL <null> Set Decimal OFF Set Erase OFF
Set Extentsize 100 30 EXIT=SHUT and terminate Set Extprog <null>
Set Editinput Data OFF Command OFF Extend OFF Set Filesize 3200
Set FORTRAN OFF Set Gypsy OFF Set Increment 1
Set Jump OFF
Set Justify Null Marginright <null> Two OFF Indent <null> Set Keep ASCII ON
CCTL OFF Code 0 Lab 0 Num OFF Var ON Name NZBANK Set List Page OFF Line 60
Nam ON Num ON Titl ON Dbl OFF PCL 0 QJ OFF LJ 23
Set Limits Run ON MPE ON Hold 5 Set Language TEXT
Set Length 72 Set Left 1 Set Lib S
Set Modify <defaults> Set Maxdata <null>
Open:QEDITSCR.NZ.STOCK2K,Temp TEXT Length:72 Margins:1/72 Recall
Lines:259 Blocks:43 Free:1560 L*:1 O*:QEDITSCR Set Onlypermanent OFF
Proc DOWN UP Set PascalRobelle OFF Set Qcompilers ON
Set RL <null> Set Right 72 :Run <null>;Hold
Set Shift DOWN ? UP ? Set Tab '9
Set Tabs (11 21 31 41 51 61) Set Totals ON
Set UDC <null>
Set Visual Label ON Save OFF Expert OFF Renum OFF Roll 6 Above 9 Below 9
Set Window (1/72) Set Wraparound OFF Set X <null> List ON
Set YNone OFF Z= Set Zip []@{}
CAUTION: This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited.
If you have received this message in error please notify RYCO Hydraulics
Pty. Ltd. immediately. Any views expressed in this message are those of the
individual sender and may not necessarily reflect the views of RYCO
Hydraulics Pty. Ltd.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
CAUTION: This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited.
If you have received this message in error please notify RYCO Hydraulics
Pty. Ltd. immediately. Any views expressed in this message are those of the
individual sender and may not necessarily reflect the views of RYCO
Hydraulics Pty. Ltd.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
