Hi Rachael,
Here is the rest of my code on that particular form:
--Create temp tables for selected types
SET ERROR MESSAGE 2038 OFF
DROP TABLE tselecttype
PROJECT TEMPORARY tselecttype FROM referraltypes +
USING referraltype,description WHERE LIMIT = 0
--Create temp tables for selected agencies
DROP TABLE tselectagency
PROJECT TEMPORARY tselectagency FROM agency +
USING agencykey,agency,city WHERE LIMIT = 0
SET ERROR MESSAGE 2038 ON
SET VAR vformmode TEXT = 'NEW'
SET VAR vcm TEXT = (CVAL('NETUSER'))
SET VAR vselect TEXT = NULL
EDIT USING iradd
RETURN
Then once the form is opened the following code runs in the On Before
Start EEP:
--If editing a record then get the current record:
IF vformmode = 'EDIT' OR vformmode = 'VIEW' THEN
SET VAR vrows INTEGER = 0
SELECT (COUNT(*)) INTO vrows INDICATOR ivrows FROM inforesource +
WHERE ((irid = .virid) AND (infotype IS NOT NULL))
IF vrows > 0 THEN
SET VAR vitemcount INTEGER = 0
SET VAR vcount INTEGER = 1
SET VAR vvaluelist TEXT = NULL
SET VAR vvalue TEXT = NULL
SELECT (LISTOF(infotype)) INTO vvaluelist FROM inforesource WHERE
(irid=.virid)
SET VAR vitemcount = (itemcnt(.vvaluelist))
WHILE vcount <= vitemcount THEN
SET VAR vvalue = (SSUB(.vvaluelist, .vcount))
INSERT INTO tselecttype description VALUES .vvalue
SET VAR vcount = .vcount + 1
ENDWHILE
ENDIF
SET VAR vrows INTEGER = 0
SELECT (COUNT(*)) INTO vrows INDICATOR ivrows FROM inforesource +
WHERE ((irid = .virid) AND (agencyid IS NOT NULL))
IF vrows > 0 THEN
SET VAR vitemcount INTEGER = 0
SET VAR vcount INTEGER = 1
SET VAR vvaluelist TEXT = NULL
SET VAR vvalue TEXT = NULL
SELECT (LISTOF(agencyid)) INTO vvaluelist FROM inforesource WHERE
(irid=.virid)
SET VAR vitemcount = (itemcnt(.vvaluelist))
WHILE vcount <= vitemcount THEN
SET VAR vvalue = (SSUB(.vvaluelist, .vcount))
INSERT INTO tselectagency (agencykey, agency, city) +
SELECT agencykey, agency, city FROM agency WHERE agencykey =
(NINT(.vvalue))
SET VAR vcount = .vcount + 1
ENDWHILE
ENDIF
--Get the actual case manager
SET VAR vcm TEXT = NULL
SELECT (casemanager) INTO vcm INDICATOR ivcm FROM clients +
WHERE client# = .vselect
ENDIF
CLEAR VAR vitemcount
CLEAR VAR vcount
CLEAR VAR vrows
CLEAR VAR vvaluelist
CLEAR VAR vvalue
RETURN
Then this code in the On After Start EEP:
SET VAR vlast TEXT = NULL
SET VAR virtype = NULL
SET VAR vselecttype = NULL
SET VAR vagencyselected = NULL
SET VAR vagency = NULL
SET VAR vcomments = NULL
IF vformmode = 'ENTER' OR vformmode = 'NEW' THEN
SET VAR vdategiven DATE = .#DATE
GOTO newinforesource
ENDIF
IF vformmode = 'EDIT' OR vformmode = 'VIEW' THEN
SELECT dategiven INTO vdategiven INDICATOR ivdategiven FROM
inforesource WHERE irid = .virid
SELECT comments INTO vcomments INDICATOR ivcomments FROM inforesource
WHERE irid = .virid
PROPERTY cbocasemanager enabled 'FALSE'
PROPERTY cmboclient enabled 'FALSE'
ENDIF
LABEL newinforesource
SET VAR vallmine TEXT = 'M'
SET WALKMENU ON
PROPERTY RBASE_FORM alphablendvalue 255
PROPERTY RBASE_FORM alphablend 'FALSE'
RETURN
I was receiving consistent errors when creating the temp table, but that
is no longer happening since I changed the code to do a project table
instead of a create table. I am receiving errors at random like you
have experienced. I just noticed that this code seemed particularly
slow, especially in the 'On Before Start EEP'.
I am receiving these errors when using the database without RDP. The
users are using RDP into one server with the DB files located on another
server. I have also wondered about everyone using the c:\temp and if
that couldn't be causing an issue.
I am still researching and will let you know if I come up with anything.
I am going through my forms and trying to simplify the code since I've
had a little more experience with RBASE since I first created some of
these forms.
Thanks for your input. I really appreciate it!
Jennifer Roberts
Business Applications Specialist
Ext: 5788
From: [email protected] [mailto:[email protected]] On Behalf Of Rachael
Malberg
Sent: Wednesday, February 10, 2010 1:33 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: FW: [RBASE-L] - Re: I/O error redux
what's the rest of your code? if you run it internally (meaning not
RDped in) do you still get the error? RBP can be a bugger. do you have
it set up to RDp into one server with the DB files on another server?
also a question to everyone but if you set everyone who RDps into the
server, scratch to c:/temp wouldn't that mean everyone is using the same
temp directory and could that cause issues?
and just to let you know, I've done all the suggestions too (checking
scratch settings=still set to c:/temp, looking for extra dlls and
config=nothing extra found, added -a to short cut=no better results,
unload/load db=no change), and after a ton of time over the past 2 years
plus new equipment, 99% of time have no issues but at times users will
get I/Os. Sometimes it happens once or more a day BUT then other days
nothing with nothing done different one day vrs another.
These errors are random and all over the place and I can not recreate
them but I've watched them happen. They go to print a report and get
I/Os or picking the records to insert or when opening a form or doing
nothing and return to the app. Sometimes the I/Os just keep coming up
and the user has to end task, other times one or two I/Os, then what
ever they are doing works, or maybe it doesn't.
When it doesn't, the user closes the form, returning them to the source
form that has a button to print the same report (or reopen the form) and
it may work. If not, they return to the main menu and click a 'RESET'
button to clear all vars and disconnects / reconnects to the database.
Return to what ever they were doing when they got the I/O and it may
work . If not they close out completely, resign in, and it may
work...or not and they have to sign in and out till eventually it will
work....OR doesn't ever and a reload of database will fix it. (Guess
how happy a user is after that process just to get thier work done?)
(please note, the following is intended as no disrespect to the hard
work of the RBTI team. I'm just letting everyone know they are not
alone with these issues and what I've discovered and what my result have
been...)
This past 2 years I have ran into issues when back up is still running
on the server, low end graphics card (and setting the workstation to
performance mode has helped this issue), a user had a virus and it was
emailing like crazy, a bad network card, a faulty switch, a cut cat5
cable, poor code, a bad index, a bad record, an auto number column that
didn't increment to the next value that blocked users from entering a
new record....and on and on. It has been a ghost hunt for me to find
the source and still haven't fixed it entirely. Sadly I have spent a
bunch of time (and my client has paid a bunch for this) hunting,
testing, reworking code, adding work arounds, hired a top of line
network company who re-worked everything, new equipment, and with better
results but compared to the money invested, not enough and unfortunately
the client has canceled the project and is going with an online canned
app.
Even still this app is going to run for the next year and I just want to
get it to work so I can comfortably move on to do another RBase project
on a windows network...as of yet I'm not quite there but I want this to
work so badly!!! I will still say it's the best DB development tool
I've ever used (and I've been doing DB development for 10+ years), the
price is right, and the support is great...it's just these I/Os and
Access Violations errors are killing me! SO if you find something new
or if I do, I will keep you posted!! and GOOD LUCK with the hunt, I
hope you fair better then I!!
~Rachael
oh and this is a V8 compiled app vrs 21.30903 ran locally pointed to a
DB on a server running on a windows domain network. I'm hoping to update
to latest shortly but am hesitant since I unloaded/loaded the db,
recompiled, and updated 25 workstations last Nov ( and double checked
for extra 'stuff') and it resulted in major I/Os, lock ups, and access
violation for everyone, so I reverted back to this version (again the
same process of unload/load, recompile, and updating the 25 workstations
again) and right now most everyone is okay with this version.
This electronic message contains information
from the Ohio Masonic Home,
its operating subsidaiaries or affiliates.
The information may be
confidential, privileged or otherwise
protected from disclosure.
The information is intended to be received
solely by [email protected],
for use as designated in the message. If you are not
the designated recipient, you are instructed not to review,
disclose, copy, distribute orotherwise use of
this transmission
or its contents. If you have received this
transmission in error, please notify the
Ohio Masonic Home immediately
at [email protected]; in addition,
please delete your record of
transmission. Sending, receiving, downloading, displaying,
printing material that is harassing, fraudulent, offensive,
intimidating, defamatory, or otherwise
unlawful or inappropriate is strictly prohibited by The Ohio Masonic Home.
