Didn't I tell you all NOT to tell me that ?
Don't I know it!
Regards,
John Pitman
-----Original Message-----
From: Mark Ranft [mailto:[log in to unmask]]
Sent: Wednesday, 9 May 2012 9:58 AM
To: John Pitman
Cc: [log in to unmask]
Subject: Re: [HP3000-L] qedit question
See this would have never been a problem if you stayed on the HP3000.
Mark Ranft
On May 8, 2012, at 6:46 PM, John Pitman <[log in to unmask]> wrote:
> 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 *
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 *
|
