RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Dave Tabor
Yes the records are being stored erroneously.  I don't actually notice the problem 
until the data is read when opening the program the second time.

My session is opened and closed each time that reading and writing is done.  Normally, 
the connection is closed.

I'm basically doing this:
1)  Selecting a list of SCHED_DATA records.
2)  Getting Records and filling a 'Schedule1' DataTable
- Read a record from the SCHED_DATA file.
- Use Schedule1.record(x).item(fieldname) = 
fileobj.record.field(x).stringvalue
to fill an individual Schedule1 record.
3)  Creating and filling an array of custom SchedBox objects (used for holding 
scheduling info)
4)  Writing individual records when:
- Data in a 'SchedBox' is modified
- A 'SchedBox' is moved to another day (column) - drag-n-drop.
NOTE:  When a schedbox is moved, all others below it are
moved up one in sequence in the 'from' column, and 
all others below it are moved down one in sequence
in the 'to' column.  Any schedboxes that moved are
then rewritten to the SCHED_DATA file to store the
new SEQ_NO and DEL_DATE.  This is when the file is
being updated on a mass record basis.
- All writing is done by:
fileobj.RecordID = record id
fileobj.write()
5)  Allow for the creation of blank 'SchedBox'es, so new schedules can be created.
6)  Determine the ID number for the new record in the file.
7)  Add the new record to the 'Schedule1' DataTable.
8)  Write the new record to the SCHED_DATA file.

Data (in the SCHED_DATA file) is being changed this way:

__BEFORE__  __AFTER__
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed together (* 
see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (* see below)
Symbol: W   e   ---/
Emp:1= This one is GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (* see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points, but after a 
closer look, it appears that this is happening.  In each three line group:
Line1:  Starts with the first character of line two, and loses it's last character.
Line2:  Loses it's first character to line 1, and gains the last character of line 1 
at the end of it's data.
Line3:  Data is gone (unless it's a space character)

Thanks,
Dave



-Original Message-
[snip]

Dumb question - have you confirmed that the records are actually being
stored erroneously?  You say that the screen shows it wrong when you recall
it, but maybe the problem is with the display and/or retrieval routines.

[snip]
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Donald Kibbey
streamwriter and textwriter are .Net objects used to write stuff to files.  I've 
encountered some interesting issues when I forgot to flush them


Don Kibbey
Financial Systems Manager
Finnegan, Henderson, Farabow, Garrett  Dunner LLP


 [EMAIL PROTECTED] 03/19/04 09:17AM 
Hi, 

I'm using UniObjects to write the data, too, using SchedFile.Write().  I've posted 
some code in my last note.  

I haven't heard of the streamwriter and/or textwriter objects.  Could you please tell 
me more?

Thanks,
Dave

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Behalf Of Donald Kibbey
Sent: Thursday, March 18, 2004 4:30 PM
To: [EMAIL PROTECTED] 
Subject: Re: Crazy intermittent problem. Need help as soon aspossible.


You don't say what your using to write the data.  On the PC side, look for the flush() 
function of the streamwriter and textwriter objects.  Are you maintaining a constant 
connection with the UniData machine?  Really need some code to look at to help.

Thanks,



Don Kibbey
Financial Systems Manager
Finnegan, Henderson, Farabow, Garrett  Dunner LLP


 [EMAIL PROTECTED] 03/18/04 04:17PM 
Hi, Everyone.

I'm having trouble with a scheduling program I'm writing in VB.net, on a WinXPpro 
system, using UniObjects, that extracts and writes data to a file in our Unidata 6.0.3 
system on an AIX 5.1L system.

The trouble that I'm having is that the data is getting corrupted.  As the screen 
doesn't rebuild after a data save, I don't 'see' the problem until I restart the 
program the next time around, and data is re-read from the database.  

I've been through my program 3 times, and can't find an error.  I'm assuming at this 
point that the error is outside my program, as I ran the same test data through the 
program 5 times, and it only corrupted the data 3 times.  The other two it worked 
flawlessly.  If it was an error in my program, it shouldn't ever work right, should it?

Also, the program treats every record equally, but the data is intermittently 
corrupted, some records process fine, others get corrupted.  Some fields are lost all 
together.

Fortunately it's still in test mode, so we haven't lost any real data yet.

The data is doing things like this:

Record 1:   Record 2:
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed together (* 
see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (* see below)
Symbol: W   e   ---/
Emp:1= This one is GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (* see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points, but after a 
closer look, it appears that this is happening.  In each three line group:
Line1:  Starts with the first character of line two, and loses it's last character.
Line2:  Loses it's first character to line 1, and gains the last character of line 1 
at the end of it's data.
Line3:  Data is gone (unless it's a space character)

It's really crazy.

Anyone have any ideas for this one?  If so, any help is appreciated.

Thanks,
Dave
--
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users 

-- 
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users 
--
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users

--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Timothy Snyder






Dave Tabor wrote on 03/19/2004 09:39:29 AM:

 Yes the records are being stored erroneously.  I don't actually
 notice the problem until the data is read when opening the program
 the second time.

It sounds like you're basing this on the way your program is displaying
things.  Have you looked at the data in any other way (i.e.: UniQuery, an
editor, a straight BASIC program, etc.)?  I'm just trying to isolate
whether the problem with your program is in the update or display routine.


Tim Snyder
IBM Data Management Solutions
Consulting I/T Specialist , U2 Professional Services

[EMAIL PROTECTED]
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Dave Tabor
Hi, and thanks for the assistance.

 Timothy Snyder wrote:
 I'm just trying to isolate whether the problem with your program is in the update or 
 display routine.

Sorry that I didn't explain this better.

What I'm actually seeing is that everything on the screen looks fine.  I'll move a few 
SchedBoxes around, and everything still looks fine.  Then when I shut down the 
program, and restart it, the data displayed on the screen is incorrect compared to the 
way that I left it.  The issue is that the data isn't being written during the 
'shutdown' process.  It's written individually each time that something changes.  When 
I go back to check the record in Unidata, using a LIST command or the AE editor, I can 
verify that the data that is actually in the file, is incorrect.  So, the data is 
being corrupted before I even know about it.

Probably the reason that it's hard to track this down, is that I'm displaying data in 
textboxes that are part of a custom control.  These aren't directly connected to the 
DataTable where the data resides.  

Basically, you read the SCHED_DATA record to the SchedFile object.  Then, that data is 
added to the 'Schedule1' table, one record at a time.  After the  Schedule1 table is 
filled, then the SchedBox objects are created, each using the data from one Schedule1 
record.  

Then it's a reverse process when you write back to the file.  You make changes to the 
SchedBox object.  This in turn updates the Schedule1 DataTable.  Then the program has 
to put the DataTable record into the SchedFile object, where it's written back to the 
SCHED_DATA Unidata file.

(It would have been a lot easier, if I'd hadn't had to create an array of custom 
controls (SchedBoxes).

Each SchedBox object contains 10 textboxes and 8 other data members.

Maybe I'm just doing too many steps.  Is there a better way to keep the SchedBox 
custom control's data sync'ed to the Unidata file?

Thanks,
Dave
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Dave Tabor
Are these internal in the UniObjects interface?  I haven't encountered them before.

- Dave

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Behalf Of Donald Kibbey
Sent: Friday, March 19, 2004 9:48 AM
To: [EMAIL PROTECTED]
Subject: RE: Crazy intermittent problem. Need help as soon aspossible.


streamwriter and textwriter are .Net objects used to write stuff to files.  I've 
encountered some interesting issues when I forgot to flush them


Don Kibbey
Financial Systems Manager
Finnegan, Henderson, Farabow, Garrett  Dunner LLP


 [EMAIL PROTECTED] 03/19/04 09:17AM 
Hi, 

I'm using UniObjects to write the data, too, using SchedFile.Write().  I've posted 
some code in my last note.  

I haven't heard of the streamwriter and/or textwriter objects.  Could you please tell 
me more?

Thanks,
Dave

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Behalf Of Donald Kibbey
Sent: Thursday, March 18, 2004 4:30 PM
To: [EMAIL PROTECTED] 
Subject: Re: Crazy intermittent problem. Need help as soon aspossible.


You don't say what your using to write the data.  On the PC side, look for the flush() 
function of the streamwriter and textwriter objects.  Are you maintaining a constant 
connection with the UniData machine?  Really need some code to look at to help.

Thanks,



Don Kibbey
Financial Systems Manager
Finnegan, Henderson, Farabow, Garrett  Dunner LLP


 [EMAIL PROTECTED] 03/18/04 04:17PM 
Hi, Everyone.

I'm having trouble with a scheduling program I'm writing in VB.net, on a WinXPpro 
system, using UniObjects, that extracts and writes data to a file in our Unidata 6.0.3 
system on an AIX 5.1L system.

The trouble that I'm having is that the data is getting corrupted.  As the screen 
doesn't rebuild after a data save, I don't 'see' the problem until I restart the 
program the next time around, and data is re-read from the database.  

I've been through my program 3 times, and can't find an error.  I'm assuming at this 
point that the error is outside my program, as I ran the same test data through the 
program 5 times, and it only corrupted the data 3 times.  The other two it worked 
flawlessly.  If it was an error in my program, it shouldn't ever work right, should it?

Also, the program treats every record equally, but the data is intermittently 
corrupted, some records process fine, others get corrupted.  Some fields are lost all 
together.

Fortunately it's still in test mode, so we haven't lost any real data yet.

The data is doing things like this:

Record 1:   Record 2:
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed together (* 
see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (* see below)
Symbol: W   e   ---/
Emp:1= This one is GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (* see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points, but after a 
closer look, it appears that this is happening.  In each three line group:
Line1:  Starts with the first character of line two, and loses it's last character.
Line2:  Loses it's first character to line 1, and gains the last character of line 1 
at the end of it's data.
Line3:  Data is gone (unless it's a space character)

It's really crazy.

Anyone have any ideas for this one?  If so, any help is appreciated.

Thanks,
Dave
--
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users 

-- 
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users 
--
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users

-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-19 Thread Dave Tabor
Good thought.  I haven't, but it's a good way to go.  I'll let you know what I find.
Thanks,
Dave

-Original Message-
Behalf Of Piers Angliss

Have you (can you) examined the Schedule1 table to verify that the
corruption is occurring between Schedule1 and SCHED_DATA and not between
screen and Schedule1 ?
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


Crazy intermittent problem. Need help as soon as possible.

2004-03-18 Thread Dave Tabor
Hi, Everyone.

I'm having trouble with a scheduling program I'm writing in VB.net, on a WinXPpro 
system, using UniObjects, that extracts and writes data to a file in our Unidata 6.0.3 
system on an AIX 5.1L system.

The trouble that I'm having is that the data is getting corrupted.  As the screen 
doesn't rebuild after a data save, I don't 'see' the problem until I restart the 
program the next time around, and data is re-read from the database.  

I've been through my program 3 times, and can't find an error.  I'm assuming at this 
point that the error is outside my program, as I ran the same test data through the 
program 5 times, and it only corrupted the data 3 times.  The other two it worked 
flawlessly.  If it was an error in my program, it shouldn't ever work right, should it?

Also, the program treats every record equally, but the data is intermittently 
corrupted, some records process fine, others get corrupted.  Some fields are lost all 
together.

Fortunately it's still in test mode, so we haven't lost any real data yet.

The data is doing things like this:

Record 1:   Record 2:
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed together (* 
see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (* see below)
Symbol: W   e   ---/
Emp:1= This one is GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (* see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points, but after a 
closer look, it appears that this is happening.  In each three line group:
Line1:  Starts with the first character of line two, and loses it's last character.
Line2:  Loses it's first character to line 1, and gains the last character of line 1 
at the end of it's data.
Line3:  Data is gone (unless it's a space character)

It's really crazy.

Anyone have any ideas for this one?  If so, any help is appreciated.

Thanks,
Dave
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-18 Thread Peter Olson
can you show us some code ?

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Behalf Of Dave Tabor
Sent: Thursday, March 18, 2004 4:18 PM
To: U2 Users Discussion List
Subject: Crazy intermittent problem. Need help as soon as possible.


Hi, Everyone.

I'm having trouble with a scheduling program I'm writing in VB.net, on a
WinXPpro system, using UniObjects, that extracts and writes data to a file
in our Unidata 6.0.3 system on an AIX 5.1L system.

The trouble that I'm having is that the data is getting corrupted.  As the
screen doesn't rebuild after a data save, I don't 'see' the problem until I
restart the program the next time around, and data is re-read from the
database.  

I've been through my program 3 times, and can't find an error.  I'm assuming
at this point that the error is outside my program, as I ran the same test
data through the program 5 times, and it only corrupted the data 3 times.
The other two it worked flawlessly.  If it was an error in my program, it
shouldn't ever work right, should it?

Also, the program treats every record equally, but the data is
intermittently corrupted, some records process fine, others get corrupted.
Some fields are lost all together.

Fortunately it's still in test mode, so we haven't lost any real data yet.

The data is doing things like this:

Record 1:   Record 2:
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed
together (* see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (*
see below)
Symbol: W   e   ---/
Emp:1= This one is
GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (*
see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points,
but after a closer look, it appears that this is happening.  In each three
line group:
Line1:  Starts with the first character of line two, and loses it's last
character.
Line2:  Loses it's first character to line 1, and gains the last character
of line 1 at the end of it's data.
Line3:  Data is gone (unless it's a space character)

It's really crazy.

Anyone have any ideas for this one?  If so, any help is appreciated.

Thanks,
Dave
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


Notice of Confidentiality:  The information included and/or attached in this
electronic mail transmission may contain confidential or privileged
information and is intended for the addressee.  Any unauthorized disclosure,
reproduction, distribution or the taking of action in reliance on the
contents of the information is prohibited.  If you believe that you have
received the message in error, please notify the sender by reply
transmission and delete the message without copying or disclosing it. 

-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


Re: Crazy intermittent problem. Need help as soon as possible.

2004-03-18 Thread Donald Kibbey
You don't say what your using to write the data.  On the PC side, look for the flush() 
function of the streamwriter and textwriter objects.  Are you maintaining a constant 
connection with the UniData machine?  Really need some code to look at to help.

Thanks,



Don Kibbey
Financial Systems Manager
Finnegan, Henderson, Farabow, Garrett  Dunner LLP


 [EMAIL PROTECTED] 03/18/04 04:17PM 
Hi, Everyone.

I'm having trouble with a scheduling program I'm writing in VB.net, on a WinXPpro 
system, using UniObjects, that extracts and writes data to a file in our Unidata 6.0.3 
system on an AIX 5.1L system.

The trouble that I'm having is that the data is getting corrupted.  As the screen 
doesn't rebuild after a data save, I don't 'see' the problem until I restart the 
program the next time around, and data is re-read from the database.  

I've been through my program 3 times, and can't find an error.  I'm assuming at this 
point that the error is outside my program, as I ran the same test data through the 
program 5 times, and it only corrupted the data 3 times.  The other two it worked 
flawlessly.  If it was an error in my program, it shouldn't ever work right, should it?

Also, the program treats every record equally, but the data is intermittently 
corrupted, some records process fine, others get corrupted.  Some fields are lost all 
together.

Fortunately it's still in test mode, so we haven't lost any real data yet.

The data is doing things like this:

Record 1:   Record 2:
DelDate:03/18/0403/18/04 --OK
SeqNo:  3   3--OK
Type:   F   0   These two are mixed together (* 
see below)
Hours:  0h  hF  ---/
Code:   -= This one is GONE
Color:  BlueWBluThese two are mixed together (* see below)
Symbol: W   e   ---/
Emp:1= This one is GONE!
RelNo:  01234567001 N0123456700 These two are mixed together (* see below)
Priority:   N   1   ---/

(* HERE!)  
At first, I thought that the data was being broken up at the wrong points, but after a 
closer look, it appears that this is happening.  In each three line group:
Line1:  Starts with the first character of line two, and loses it's last character.
Line2:  Loses it's first character to line 1, and gains the last character of line 1 
at the end of it's data.
Line3:  Data is gone (unless it's a space character)

It's really crazy.

Anyone have any ideas for this one?  If so, any help is appreciated.

Thanks,
Dave
--
u2-users mailing list
[EMAIL PROTECTED] 
http://www.oliver.com/mailman/listinfo/u2-users

--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


Re: Crazy intermittent problem. Need help as soon as possible.

2004-03-18 Thread Timothy Snyder




Dave Tabor wrote on 03/18/2004 04:17:47 PM:

 I'm having trouble with a scheduling program I'm writing in VB.net,
 on a WinXPpro system, using UniObjects, that extracts and writes
 data to a file in our Unidata 6.0.3 system on an AIX 5.1L system.

 The trouble that I'm having is that the data is getting corrupted.
 As the screen doesn't rebuild after a data save, I don't 'see' the
 problem until I restart the program the next time around, and data
 is re-read from the database.


Dumb question - have you confirmed that the records are actually being
stored erroneously?  You say that the screen shows it wrong when you recall
it, but maybe the problem is with the display and/or retrieval routines.

As others have said already, the information supplied so far doesn't give
us much to go on.  Code segments, before-and-after pictures of the raw
records, and other information would give us some bread crumbs to follow.


Tim Snyder
IBM Data Management Solutions
Consulting I/T Specialist , U2 Professional Services

[EMAIL PROTECTED]
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Crazy intermittent problem. Need help as soon as possible.

2004-03-18 Thread Dave Tabor
Here is some of my code, but it's quite long.  I've trimmed it to just the sections 
that deal with data reading and writing, as I'm pretty confident that the error is in 
there somewhere.

NOTE:  SchedBox(col,row) is an array of custom control that is similar to a cell in a 
grid.

Quick List of subroutines and functions:

Sub OpenSession Opens Session to Unidata
Sub CloseSessionCloses Session to Unidata
Sub SelectRecords   Selects Records in Unidata File
Sub FillDataTable   Fills the 'Schedule1' DataTable
Sub Sched_Text_Changed  Called when scheduling text is changed in text 
boxes in custom control
Sub Changed_Cust_Info   Called when customer text is changed 
in a text box in custom control
FunctionGetNewIDReturns 'NewCounter'
Sub WriteData   Writes a Record to Unidata File
FunctionLoadSchedFileData   Returns 'OkToWrite'

Thanks for any help you may have.
- Dave

-

 Public Sub OpenSession()
'
' Create a session to work with
' 
Session = CreateObject(UV_SESSION_OBJECT)
If Session Is Nothing Then
' NB.  Errors will be reported by Visual Basic
Exit Sub' End program
End If
Session.HostName = hostname
Session.AccountPath = accountpath
Session.UserName = username
Session.Password = password
'
Session.Connect()
If Session.isactive Then
' Continue with the program, then close the session.
If Session.HostType = UVT_UNIX Then
'MsgBox(You are connected to the UNIX server)
End If
Else
' Check for session errors - display dialog box with error code
If Session.error  UVE_NOERROR Then
MsgBox(Unable to open connection due to error#:   Session.error)
End If
End If
End Sub

Public Sub CloseSession()
SchedFile.CloseFile()
SchedFile = Nothing
Session.Disconnect()
If Session.isactive Then
' Continue with the program, then close the session.
MsgBox(You are still connected.  Attempting one last time to disconnect.)
Session.disconnect()
End If
End Sub

Public Sub SelectRecords()
' Open a Select List
SchedFile = Session.OpenFile(SCHED_DATA)
SelectListObj = Session.SelectList(0)
Session.Command.Text = SSELECT SCHED_DATA BY DEL_DATE BY SEQ_NO
Session.command.exec()
Session.command.text = SAVE-LIST SD.JUNK
Session.command.exec()
SelectListObj.GetList(SD.JUNK)
End Sub

Public Sub FillDataTable()
Dim SchedRec As Object
SchedFile.RecordID = SelectListObj.Next
Do While Not SelectListObj.LastRecordRead
' Read a record and check for errors
SchedFile.Read()
If SchedFile.Error  UVE_NOERROR Then
MsgBox(Error reading from file (  SchedFile.Error  ))
Exit Do
End If
' Load the Schedule1 table
'
SchedRec = SchedFile.Record
Dim anyRow As DataRow = Schedule1.NewRow
anyRow(ID) = SchedFile.RecordID
anyRow(JOB_NO) = SchedRec.Field(1).StringValue
If SchedRec.Field(2).StringValue   Then
anyRow(DEL_DATE) = 
CDate(Session.Oconv(SchedRec.Field(2).StringValue, D2/))
Else
anyRow(DEL_DATE) = System.DBNull.Value
End If
'
anyRow(CUST_NAME) = SchedRec.Field(3).StringValue
anyRow(CITY) = SchedRec.Field(4).StringValue
anyRow(STATE) = SchedRec.Field(5).StringValue
anyRow(SEQ_NO) = SchedRec.Field(6).StringValue
If SchedRec.Field(7).StringValue   Then
anyRow(PRM_DATE) = Session.Oconv(SchedRec.Field(7).StringValue, 
D2/)
Else
anyRow(PRM_DATE) = System.DBNull.Value
End If
If SchedRec.Field(8).StringValue   Then
anyRow(PRM_TIME) = SchedRec.Field(8).StringValue
Else
anyRow(PRM_TIME) = System.DBNull.Value
End If
anyRow(TYPE) = SchedRec.Field(9).StringValue
anyRow(HOURS) = SchedRec.Field(10).StringValue
anyRow(CODE) = SchedRec.Field(11).StringValue
anyRow(COLOR) = SchedRec.Field(12).StringValue
anyRow(SYMBOL) = SchedRec.Field(13).StringValue
anyRow(EMP) = SchedRec.Field(14).StringValue
anyRow(REL_NO) = SchedRec.Field(15).StringValue
anyRow(PRIORITY) = SchedRec.Field(16).StringValue
anyRow(TRK_NO) =