Neil,
I just tried - text in, add some blank lines to the end , KQ as a new name, works fine. Adding more lines makes it recalculate the size, even though it still uses 1276b VA, it works this way.
That will resolve the issue for me, its not a common occurrence working with VA files (only for migration off the hp).
/t nzbank
QEDITSCR
259 lines in file
/a last
260
261
262
263
264
265
266
267
268 //
/kq nzbank1
NZBANK1.NZ.STOCK2K,OLD 1276B VA # of records=259
Purge existing file [no]?y
/
thanks
Regards,
John Pitman
-----Original Message-----
From: Neil Armstrong (Newsgroups) [mailto:[log in to unmask]]
Sent: Wednesday, 9 May 2012 8:57 AM
To: John Pitman; [log in to unmask]
Subject: RE: [HP3000-L] qedit question
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 *
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 *
|