+
+$sess->begin_trans;
+#print STDERR "\nAbout to call delete. sysno=$sysno \n"; #!!!
+($ret,$sysno) = $sess->delete_record( data => $rec3,
+ sysno => $sysno,
+ recordType => 'grs.perl.pod',
+ );
+ok(($ret == 0),"delete record ok");
+
+#print STDERR "\nafter delete ret=$ret sysno=$sysno \n"; #!!!
+
+$stat = $sess->end_trans;
+ok(($stat->{inserted} == 0), "not inserted");
+ok(($stat->{updated} == 0), "updated ok");
+ok(($stat->{deleted} == 1), "deleted ok");
+$sess->commit;
+
+
+