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 *
|
