Volume load to RebDB

[jfdutcher]

<pre>
I'm not surprised that there would be something wrong with the script below which creates a table and then trys to mass load it from a file....but am puzzled that the error
posted says :  'Table Not Open'    as page ( of the
RebDB manual makes clear tables should be closed when attempting this action.

**************   script  **********************
Rebol[]
do %db.r
comment {db-drop mt-table}
db-create mt-table [
   Recv-Date string! 10
   Provider      string! 6
   Svc-Year      string! 4
   Account       string! 12
   Last-Name     string! 28
   First-Name    string! 28
   Mid-Init      string! 1
   Date-of-Birth string! 10
   HIC-Number    string! 15
   Location      string! 2
   Fin-Class     string! 2
   Adm-Date      string! 10
   Dscg-Date     string! 10
   Remit-Pat-Typ string! 1
   Omega-Pat-Typ string! 1
   TOB           string! 2
   Ref-Number    string! 24
   Pymt-Status   string! 2
   Outlier-Amt   string! 18
   Rej-Code      string! 5
   CAS-Amt       string! 18
   Total-Charges string! 15
   Payment-Amt   string! 15
   Deduc-Amount  string! 15
   Coin-Amount   string! 15
   IME-Amount    string! 15     
]

db-close mt-table
bin: make binary! 770 * 281
insert tail bin reduce
[to-bin-string! read %mcare_remit.txt]
write/binary %mt-table.dat bin

****************   error  **********************
>> do %mcare-remit.r
Script: "Untitled" (none)
Script: "RebDB Database" (26-Apr-2004)
Script: "RebDB Library Functions" (none)
Script: "RebDB Datatype Handlers" (none)
Script: "RebDB SQL Alias Functions" (none)
** User Error: Table not open
** Near: to error! :value
</pre>

[Ashley]

Try it with the following changes:

Code:

attempt [db-drop mt-table]
...
attempt [db-close mt-table]