Post by tsh73 on Jan 31, 2024 4:30:40 GMT -5
Actually this is Heisenbug
I found it - then I left LB5 loaded for a while - then it did not reproduce
I closed/opened LB5, here we are again
What happens:
You create a RAF file, anew
But then writing, skip some records (say start to write it from record 2)
It apparently writes stuff you asked for
But what ends to be in skipped records?
It looks that sometimes it's just some garbage
But sometimes if is wiped by chr$(0)
The code thgat skips records 1 and 4
Results of different runs
with garbage
without garbage
I found it - then I left LB5 loaded for a while - then it did not reproduce
I closed/opened LB5, here we are again
What happens:
You create a RAF file, anew
But then writing, skip some records (say start to write it from record 2)
It apparently writes stuff you asked for
But what ends to be in skipped records?
It looks that sometimes it's just some garbage
But sometimes if is wiped by chr$(0)
The code thgat skips records 1 and 4
dim y(10)
y(2)=15
x1=20
total = 700 'it looks like LB5 uses this number and does not checks filed length sum
open "contact353.dat" for random as #contacts len = total
field #contacts, _
x1 as name$, _
y(2) as address$, _
15 as city$, 2 as state$, 10 as zip$, 15 as phone$, 20 as stage$, 500 as memo$, 48 as fill$
address$="Nowhere, 123"
name$ = "4"
' put #contacts, 1
name$ = "Carlos Gomez"
stage$ = "Initial Phone Call"
put #contacts, 2
name$ = "Raymond Rhodes"
stage$ = "Special Offer Mailer"
put #contacts, 3
name$ = "Willie Weston"
stage$ = "Initial Phone Call"
'put #contacts, 4
name$ = "Alexi Guerra"
stage$ = "Special Offer Mailer"
put #contacts, 5
close #contacts
print "over"
run "notepad.exe "+DefaultDir$+"\contact353.dat"Results of different runs
with garbage
<do-it>"#('C:\lb5dev\image\build-353.im' 'February 22, 2022' '11:20:56 PM')"
"An image file C:\lb5dev\image\build-353.im was created at 11:20:56 PM on February 22, 2022."</do-it>exceptionEscapeBlock: [ ^#handleException ].
products := self product products.
[
[
each := products at: self executionIndex.
self executionIndex: self executionIndex + 1.
self pauseIfAppropriate: each.
each animate: self.
self executionIndex <= products size
] on: Error do: [ :err |
Dialog warn: err messageText.
self hasAnyExceptionHandler
ifTrue: [
self
assignByName: 'Err$' toBe: err messageText;
assignByName: 'Err' toBe: (ErrorCode for: err).
self findExceptionCarlos Gomez Nowhere, 123 Initial Phone Call Raymond Rhodes Nowhere, 123 Special Offer Mailer Willie Weston Nowhere, 123 Initial Phone Call Alexi Guerra Nowhere, 123 Special Offer Mailer without garbage
Carlos Gomez Nowhere, 123 Initial Phone Call Raymond Rhodes Nowhere, 123 Special Offer Mailer Alexi Guerra Nowhere, 123 Special Offer Mailer 