Data Replication
- Data Replication 9.8.0 HotFix 2
- All Products
# dbs_worker_start.tcl – starting script file package require Tcl 8.2 package require struct::matrix package require Tcl 8.3 package require csv package require Tcl 8.2 set file [open ./hash.csv r] ::struct::matrix csv_matrix ::csv::read2matrix $file csv_matrix "," auto set des_maker \ [ csv_matrix get cell 0 \ [ lindex [ lindex [ csv_matrix search all "des_maker" ] 0 ] 1 ] ]
package require Oratcl package require -exact Oratcl 4.5 set lh [ oralogon some_login/some_pass@//some_host:1521/orcl ] puts [orainfo version] puts [ orainfo server $lh ] set sh [ oraopen $lh ] set dic [ ::dbs::getglob hash1 ] dict for { key value } $dic { set sql { insert into DUMP (COLUMN1,COLUMN2) values ( :key , value ) } oraparse $sh $sql orabind $sh :key $key :value $value oraexec $sh } oracommit $lh oraclose $sh oralogoff $lh