#  Script which demonstrates dbwrite routine.
#
#  In isql do something like:
#       create table text_table (t_index int, the_text text)
#

require "sybperl.pl";
require "sql.pl";

$d = &dblogin;
$d2 = &dbopen;

&sql ($d, 'delete from text_table');
&sql ($d, 'insert into text_table (t_index, the_text) values (5,"")');


&dbcmd($d,'select the_text, t_index from text_table where t_index = 5');
&dbsqlexec($d);                         # execute sql

&dbresults($d);
@data = &dbnextrow($d);

&dbwritetext ($d2, "text_table.the_text", $d, 1, "This is text which was added with Sybperl");

@result = &sql($d,'select t_index, the_text from text_table where t_index = 5');

print @result, "\n";

&dbclose($d);

